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THIS MONTH. WE'RE DEUGHTED TO 
announce that Your Commodore has 
now joined forces with Your 64 to bring 
you the best Commodore magazine 
around. 

Publishers of Your Commodore. 
Argus Specialist Publications, recently 
concluded the purchase of Your 64 from 
Sportscene Press. Peter Welham, ASP's 
MD, said: "This acquisition consolidates 
our position as one of the leading titles in 
the buoyant Commodore market and 
further confirms our commitment to 
machine specific titles." 

We're pleased to welcome all our new 
readers to our pages and we can promise 
that you won't be disappointed, we're 
really going to have our work cut out over 
the next few months making sure we 
bring you only the best in software and 
hardware reviews, games and utility 
listings, plus many exciting and absorbing 
features for you to relish. 

We're also very conscious of the fact 
that a magazine is nothing without its 
readers and so we'll be waiting anxiously 
for the postman every day to find out what 
you really think about our magazine. 

Write to us at Your Commodore. No 1 
Golden Square, london W1R 3AB and tell 
us what you think are the best (and 
worst!) features of the magazine and give 
us your ideas on what needs to be 
Included. We promise to read everything 
you send so get those letters In the post 
now. 

Stay with us over the next few months 
and we'll bring you the only Commodore 
magazine worth reading. 
Stuart 
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Part of Ariolasoft'* new range 



The sky's the limit 



ARIOLASOfT'S RECENT SUCCESS, SKY- 
fox, has now been released on cassette 
priced at £9.95. The game was originally 
only available on disk and the cassette 
version eventually released was the third 
attempt at maintaining the standard of 
Skyfox since two earlier conversions were 
rejected by the manufacturers as being 
not up to scratch. 

Skyfox is only one of a number of new 
releases from Ariolasoft. The latest titles 
are Racing Destruction Set, Pinball Con- 
struction Set, Adventure Construction 
Set, Music Construction Set, Seven Cities 
.. Gold and Mail Order Monsters. So far 
these titles are only available on disk and 
are all priced at £14.95. 

Ariolasoft can be contacted at Suite 
105/105 Asphalte House, Palace St, 
London SW1E 5HS. 



Chatting up 



COMPUNET IS DEVELOPING A NEWSER- 
vice scheduled for a late autumn launch. 
It is a scrolling, CB style chat facility. The 
chat line will allow users to bold 
conversations in real time with other users 
all over the country. 

Contributions are typed into a window 
at the bottom of the screen while a second 
window above displays messages from 
other users. By scrolling back and forth 
the whole conversation can be reviewed. 
Users with similar interests can form 
groups by using individual chat lines 
which will be provided and those wanting 
a chat can monitor various conversations 
before deciding which one to join. 

For further information contact: 
Compunet, Metford House, 15-18 
Clipstone St, London W1P 7DF. 
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Starstruck 



STARION FROM MELBOURNE HOUSE IS 
now available for the Commodore. It was 
originally released for the Spectrum and 
Amstrad computers. 

The game will be priced at £9.95 and is 
obtainable from Melbourne House, 
Castle Yard House, Castle Yard, 
Richmond TW10 6TF. 



Beyond the fringe 





BEYOND IS BRANCHING OUT WIT 
two new games. 

The first is the computer version of 
Superman, a game developed as a joint 
venture with First Star. Bill Delaney, 
Beyond's MD said: "It will shoot to 
number one in every software chart." 

Beyond has also formed a partnership 
with another software house. Nexus. The 
first game to appear on the new label wi 
be called Nexus and will be a 
"sophisticated graphic adventure where 
the player becomes an investigative 
journalist infiltrating an evil drugs ring in 
South America. 

According to Nexus, the game will 
offer maximum playability and user 
friendliness. Instead of having to read 
pages of documentation before starting, 
the player will be able to experience 
action straight away through on screen 
instructions. Nexus will also feature 
digitised video images which, it is 
claimed, will generate realistic animation 
enabling the player to recognise various 
characters. 

Nexus costs £9.95 and is available from 
Beyond, Durrant House, 8 Herbal Hill, 
London EC1R 5EI 




Starion from Melbourne House 



Gold standards 



US Gold has brought out yet another 
batch of new releases. The three latest 
titles are Monster Trivia, Beach Head II 
and Ghostchaser. 

Monster Trivia is a spin off from the 
enormously successful board game, 
Trivial Pursuits, but in this version you get 
killed by a monster if you get enough 
[•questions wrong. 



Beach Head II is the follow-up to 
Beach Head and features multiscreen 
play, complex strategy, animation and 
high speed arcade action. 

Ghostchaser takes Harry around 
Fairport Manor where he must blast large 
ghosts which materialise at random. 

All the new titles are for the C64 on 
cassette or disk and cost £9.95 and £14.95 
respectively. You can get in touch with US 
Gold at Unit 10, The Parkway Industrial 
Centre, Heneage St, Birmingham B7 4LY. 
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Feargal Sharkey sits up and takes notice 



POP STAR, FEARGAL SHARKEY, HAS 
recently become the owner of the first 
production model of Supersoft's digital 
sampler for the C64. 

He visited the Supersoft stand at the 
Commodore Computer Show and was 
very impressed with the sound 
reproduction quality of the new product. 

The sampler is called Microvox and 
offers eight different sampling rales, up to 
a maximum of 42KHz which gives a 10KHz 
band width. Samples can be played 
forward or backward and there is full 
editing and looping with a high resolution 
display. 

A 2000 note sequencer is included as 
part of the Microvox software with real 
time recording and step time editing. 

Microvox costs £299.95 and is available 
through music shops, computer stores or 
direct from Supersoft at Winchester 
House, Canning Rd, Wealdstone, Middle- 
sex HA3 7JS. A disc drive is essential. 
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C-16 and Plus 4 owners can now pick up a 
bargain in joysticks with Vulcan 
Electronics new packages. 

The Gunshot I joystick is now being 
sold complete with an adaptor for £10.95. 
The packs are available from Dixons, 
Laskys and other computer retailers. 

Everything the user needs to connect 
the joystick to his computer is included 
plus concise instructions and a 12 month 
guarantee slip. 

For more information contact: Vulcan 
Electronics, 200 Brent St, Hendon, London 
NW4 1BH. 



'I'll never have to feel like this again!' 



Eve contact 



SPECTACLE WEARERS WHO USE VDUs 
or television screens as a major part of 
their everyday lives can now try a new way 
of protecting themselves from eyestrain. 

Balzars has come up with Quazar, a 
tough anti-reflection coating which, 
claim the makers, virtually eliminates lens 
surface reflections especially those 
caused by strong projected images. The 
coating can increase light transmission to 

almost 100 per cent. 

The result for the user is that extra 
visual sharpness is noticeable during long 
periods of exposure, thus reducing visual 
fatigue. 

For more information contact: Balzars, 
Northbridge Rd, Berkhamsted, Herts HP4 
1EN. 



News 



Become a boffin 



A NEW HOME COMPUTER TEACHING 
course has recently been released by 
Fearless Software. It is claimed that the 
course will take you from scratch to 
complete computer literally in 12 months. 

Peter Ellis who formed the company 
to produce and market (he Home Tutor 
said: "It is for children, housewives and 
the retired. It is also for those seeking new 
jobs or looking for promotion with their 
present employer." 

The course is available on tape or disk 
and it teaches, demonstrates, corrects a nd 
tests the students. There is an examination 
a( the end and those who pass receive a 
certificate. 

The course starts by explaining what a 
computer is and goes on to teach Basic 
and machine code, covering such areas as 
information storage and communications. 
There are 13 parts to collect over the 12 
month period. 

Home Tutor costs £12.50 per month 
including tapes, teaching notes, a carrying 
case and ring binder. For disks the cost is 
£2 extra and postage is £1.15. Quarterly 
charges are £30 for tapes and £35.55 for 
disks. 

For more information contact: 
Fearless Sofiware, Infoplan, 30 Eastbourne 
Terrace, London W2. 



Errata 



A NUMBER OF PEOPLE SEEM TO BE 
having problems entering the Sketch 
Pad program which appeared in the 
September issue of Your Commodore. 
There are no errors in the program 
but some of the codes that our printer 
interface uses seem to be causing the 
problems. 

In line 1450 the (255J is actually the 
character code for pi ( n ). This character is 
to be found on the key next to the 



RESTORE key. When entering the 
program you should type in the pi and not 
[2551. 

Another line that is causing problems 
is 620. It appears that in some issues of the 
magazine this has not reproduced very 
well. Line 620 should start with IF XC = 
256 THEN 

A number of people also seem to be 
having problems finding the 1 character 
on their keyboard this istheuparrow I to 
be found on the key next to the RESTORE 
key. The printer that we use does not print 
the downstroke of the arrow. 





The in-store terminal 



British Telecom and Program express sign up 



Telecom deal 



BRITISH TELECOM AND PROGRAM Ex- 
press have joined forces to make the lives 
of software retailers and buyers less 
fraught with frustration. 

Program Express is the firm which 
launched the Electronic Distribution 'of 
Software Machine in July 1984 which 
works on a "Central Computer Network/ 
In-store Satellite Terminal" principle. The 
retailer can download a unit of software 
from the in-store terminal onto a blank 
tape. The machine records all relevant 
details about the sale and at the same time 
new titles can be added to the hard disk 
terminal while old ones are deleted. 

Under the new agreement British 
Telecom will finance the operation and 
Program Express's three directors, 
Gilmour Kennedy, Bruce Neville and 
Grant Robertson will run the company 
auutonomously. 
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Agony Aunt Tony Crowther 



answers more of your 



| programming questions. 



/ have been told on many occasions that it 
is possible to make all of the keys on the 
C64 keyboard repeat, as on the Spectrum. 

This seems to be a very handy facility as 
you could enter long strings of the same 
character without having to press the key 
for each letter. 

However, I do have one slight 
problem, nowhere can I find mention of 
how to do this. Would it be possible to 
provide me with the necessary commands 
or program to make the C64's keys 
repeal? 
Mike Atkinson 
Taunton ^ 



OUTPUT 



Yes, it is possible to make all of the keys on 
the C64 repeat and it is very easy to do. All 
you have to do is POKE into a few memory 
locations. The locations are as follows 

Location POKE Result 

650 255 all keys repeat 

650 0 no keys repeat 

650 128 just the cursors 

repeat 

651 0-255 repeat speed 

652 0-255 delay before repeat 
The keyboard scan is done by the 

hardware IRQ Interrupt, if we change the 
clock rate of timer A we can make the rate 
of the interrupts speed up or slow down. 
Try: 

POKE 56325,number (0 to 255) 

a number of zero to 10 forces many 
interrupts a second and causes the Basic 
run speed to slow down. This could be 
used to your advantage when debugging 
a Basic progr; 



I'm not sure what system Ahoy uses but 
we nevertheless accept that the listings 
need improving. Therefore we will be 
using a Micrografix MW350 in future, 
which replaces all graphic characters with 
a short description. 
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/ have a problem with my 64 that I cannot 
get an answer to. After about two hours 
my computer crashes, putting random 
graphics on the screen and eventually the 
whole screen is covered in flashing 
graphics If I turn it off for a couple of 
hours the problem goes away but ft recurs 
more frequently afterwards. 
LBurn 

South Shields 
Tyne & Wear 



OUTPUT 



The problem is that your 64 is overheating 
I suggest that you take it back to the dealer 
and see if he can replace it. 
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am as everything will slow 



In your March issue you did a feature on 
Games creators and this article impressed 
me so muchjhat I wish now to buy one. 
The one I am interested in is the Quill by 
Cillsoft, could you please tell me thei 
address. 
P. Vassallo 
Pieta 
Malta 
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/ write to congratulate you on the quality 
of your magazine. I find it to be the best of 
the British Commodore mags available in 
Australia. However / feel that the 
atrocious reproduction of graphics 
symbols spoils it. I would suggest that you 
employ a system like the American 
magazine 'Ahoy', which permits rapid 
loading and clear understanding 
listings. 
P. Robinson, 
Blackwater, 
Australia. 
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Gillsoft are at:- 
30 Hawthorn Road, 
Barry, 
S. Glams. 
CF6 8LE. 



OUTPUT 



in 



In am writing a program in machine code 
that requires a lot of data storage. I 
understand that there is 8K of RAM 
'underneath' the Basic Kernal. This would 
be an ideal place to store my data and 
machine code routines. 

Could you please explain how I access 
this area of memory as when I try I only get 
the Basic ROM and not the numbers I 
have stored beneath it? 



OUTPUT 



As you have already found out you can't 
use the area of memory beneath the Basic 
Kernal when Basic is running as any peeks 
or calk to that area will just go to the 
kernal. If however you are using machine 
code you can turn off the Basic kernal and 
use the memory that sits beneath it quite 
easily. 

First you must switch off the Basic 
ROM. To do this you unset the lower bit 
of memory location one. This can be done 
simply by subtracting one from it. If this 
action was to take place in Basic your 
program would crash. However, in 
machine code it will not affect the 
program. 

If your machine code routine was to 
start at — or your data was stored at — 
location 40960 ($A000), then this small 
routine would allow you to access it. 
SC000 DEC $01 ; switch off Basic ROM 
SC002 (SR SA000 ; jump to start of 
program 

; back here from your 
routine 



$C005 INC $01 
: first turn Basic 



back on 

rn to Basic or rest 




of 
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Stuart Cooke has 



spent hours slaving 



over a red hot 



Commodore 128 and 



he's decided that it 



was definitely worth 



the effort. 



THE C 128 

IN DEPTH 




COMMODORE ARE ALL SET 
lo prove that three into one 
does go with their new Com- 
modore 128 computer. 

The CI 28 is essentially three 
computers in one. Inside a case 
that looks as though it would 
be quite at home on the flight 
deck of some futuristic space- 
ship there is a good old C64. 
Secondly we have what can 
only be described as an 
upgrade of the C64, 128 mode. 
Hardware-wise this is the same 
as the C64 with only a few 
changes. Thirdly there is a 
machine that has also been 
around for quite a long time, 
but not from Commodore. 
This is a CP/M computer. 
CP/M has been around for a 
number of years and is the 
name given to an operating 
system that is used on some Z80 
based business systems to allow 
a great deal of compatibility 
between manufacturers. 
Perhaps one of the most 
famous business packages that 
runs under CP/M is the word- 
processing package Wordstar 
which is in use in thousands of 
offices around the world. 

First Impressions 

The first thing that you notice 
about the C128 is that you are 
nol getting some fantastic new 
machine for your money. What 
you do get are two very well 
established machines and one 
very good up grade. 

The machine itself has been 
designed to achieve as much 
compatibility as possible with 
the C64 and other Commodore 
products. For this reason many 
of the expansion connectors 
will be familiar to owners of 
10 other Commodore machines. 
There are connectors on the 
machine for two joysticks, 
Commodore's own serial peri- 
pheral connector, TV interface, 
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composite video interface, a 
standard Commodore cassette 
interface, a user port and a 
cartridge port. New items 
obvious on the sides of the 
machine are a reset switch and 
a RGB monitor interface. 

Even though Commodore 
has tried to make the C128 as 
compatible as possible with the 
C64, the cassette interface is in 
a silly position. If you plug a 
Commodore modem into the 
cartridge port the casing of the 
modem obscures the cassette 
interface preventing a cassette 
recorder from being plugged 
in. 

The keyboard bears only a 
slight resemblance to earlier 
Commodore machines as there 
are more keys available. Added 
keys include a numeric keypad 
and a large number of function 
keys. 

In Use 

When powering up you are 
able to decide whether you 



wish to boot up the C128 in 40 
or 80 columns, CP/M, 128 or 64 
modes. Here we come across 
the first problem with the CI 28. 
The 80 column display can only 
be viewed on a monitor that is 
plugged into the RGB interface 
while the 40 column display 
can only be viewed on a TV or 
monitor plugged into the 
composite video socket. If you 
wish to use both 40 and 80 
columns then you will need 
two different monitors. Com- 
modore has produced a new 
monitor that will allow you to 
switch between the two modes 
of operation. A monochrome 
composite signal is present on 
the RGB socket so you can plug 
a monochrome monitor to 
view 80 columns if you already 
own one. Using a monochrome 
monitor will not cause any 
problems especially when you 
realise that the 80 column 
mode is text only and no 
graphics are available. 

C64 mode offers nothing 
new, what it does do however 



is allow you to use all of the 
packages that are currently 
available for the C64 on your 
CI 28 computer. This is great 
news for people who already 
own C64s and are thinking 
about upgrading. Over 100 
pieces of software were tried 
on the review machine and all 
of them worked correctly. The 
only problem that we found 
was with programs that used 
keyboard overlays as the keys 
are in different positions. This is 
especially noticeable with Com- 
modores Music Maker 
package as the keyboard will 
not fit the new design. Even so 
it appears that all problems will 
work with no faults. 

An on board Z80 micro 
processor allows you to run 
CP/M Plus version 3.0. CP/M 
Plus will give your CP/M 
programs full access to the 
128K of RAM that is built into 
the machine as standard. Com- 
modore has made a few 
changes to CP/M Plus, mostly 
by adding some new com- 




mands. Because of this total, 
CP/M compatability is 
something that will have to be 
proved. Unfortunately the 
review machine did not come 
with any CP/M software so this 
was something that I was 
unable to test. 

As I have already men- 
tioned, 128 mode offers 
nothing very new apart from an 
excellent Basic and an 80 
column display. Basic 7.0 can 
only be described as the Basic 
that should have been imple- 
mented on the C64 as it allows 
total control of all the facilities 
offered by the hardware 
without having to resort to 
POKEs or machine code. 

The new disc drive is also a 
great improvement on the old 
1541 when used in C128 or 
CP/M mode as it will LOAD 
and SAVE programs around 
three to four times faster - a 
great relief to anyone who has 
used a 1541. Unfortunately, 
when used in C64 mode the 
drive works at the same slow 
speed that we all know and 
hate. 

Basic 7.0 

Basic 7.0 contains a large 
number of commands that are 
designed to ease the use of 
sound and graphics together 
with a large number of 'toolkit' 
commands. For example the 
AUTO command will automat- 
ically give line numbers. 



BLOAD and B5AVE allow you 
to load" and save specific 
sections of memory. A 
renumber function helps with 
the development of long 
programs. Programs that do 
not work correctly are easier to 
debug with the HELP command 
which will show you where 
your error has occurred or the 
TRON and TROFF commands 
which will display the line 
number of the line that is about 
to be executed. 

Error trapping is provided 
by the TRAP command. 
Whenever an error is detected 
this command will cause the 
program to jump to the 
specified program line rather 
than 'bombing out'. You will 
then be able to find out what 
error has occurred and take the 
appropriate action. This 
command will make idiot- 
proofing your Basic programs 
very easy. 

Finding out what the con- 
trollers are doing is also made 
very easy. JOY will tell you 



which direction a specified 
joystick is pointing in and 
whether the fire button is 
pressed. The position of the 
paddles and light pen is also 
easy to find out with the POT 
and PEN commands respec- 
tively. 

Machine code buffs will be 
pleased to hear thai a machine 
code monitor is included. This 
will allow you to display, alter 
and move sections of memory. 
There is even a machine code 
assembler and disassembler. 
The Basic keywords HEX$ and 
DEC will also prove to be very 
handy as they will allow you to 
convert decimal numbers to 
hex and vice-versa. 

A number of new structure 
commands have been added to 
the standard FOR/NEXT loop. 
These include DO/LOOP 
which will repeat a section of 
your Basic program UNTIL a 
specific condition is met or 
WHILE a specific condition is 
met. IF/THEN will only allow 
one statement after the THEN 



modes that are available. The 
six modes are, 40 column text, 
standard bit-map graphics, 
standard bit-map with split 
screen, multi-colour with split 
screen and 80 column text. As 
previously mentioned the 80 
column screen can only be 
used with a monitor plugged 
into the RGB socket. The split 
screen modes are very int- 
eresting as they allow you to 
use a section of the screen in 
one of the graphic modes 
while still retaining a specified 
segment for text only. This type 
of feature has been used many 
times on the C64, especially in 
graphic adventures, but is now 
extremely easy to use on the 
CI 28. 

Drawing lines or shapes on a 
graphic screen is also very 
simple. The COLOR command 
allows you to set up the colours 
that you require for any 
plotting etc The LOCATE 
command can be used to posi- 
tion the graphics cursor at any 
point on the screen, and 
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DRAW will allow you to plol 
dots or draw lines in the 
specified colour. Shapes can 
easily be drawn as the draw 
command will allow you to 
string a number of points to- 
gether by using the word TO as 
in 

DRAW.100,100 TO 10.100 TO 
10,10 

BOX makes it extremely 
easy to draw rectangular 
shapes on the screen, all that is 
necessary is to specify the top 
right hand and bottom left 
hand co-ordinates together 
with the rotation of the box. 
You can even specify if you 
want the box to be filled in with 
a certain colour. 

CIRCLE is used to draw 
circles, ellipses and 'other' 
shapes. This may seem to be a 
weird statement but when you 
see how complex the circle 
command can be you will 
understand what I mean. The 
CIRCLE command can have up 
to nine parameters, these are, 
the colour source, the centre of 
the circle, the X radius, the Y 
radius, the starting arc angle, 
the ending arc angle, the 
rotation in clockwise degrees 
and the number of degrees 
between segments. This does 
appear very complicated at first 
glance but playing around with 
the parameters will soon show 
you how versatile this 
command really is. Not all of 
the parameters need to be used 
every time that the command is 
used. The following example is 
from the manual and will draw 
a diamond shape on the 
screen: 

CIRCLE 1,260,40,20,30„„90. 



corner and ESC 
bottom corner. 

As well as having commands 
for producing pictures on the 
screen, there are also a few that 
will tell you exactly what is 
happening on your display. 
The RGR will tell you which 
graphic mode the C128 is in at 
the moment. RDOT returnsthe 
current position of the graphic 
cursor or the colour of the 
graphic cursor. You can even 
find out the window 
parameters by means of the 
RWINDOW command. 



B for the whether it is hi-res or multi- effects in your programs. 

colour and if it is expanded in SOUND can have up to eight 

either the X or Y directions. parameters. These are, the 

Moving a sprite around is voice number (one to three), 

also made child's play with the the frequency of the note, the 

MOVSPR command. MOVSPR duration of the note, whether 



WIDTH can be used to set 
the width of any lines that you 
are drawing while SCALE will 
allow you to alter the size of 
your diagrams with ease. 
Another handy command is 
PAINT which will allow you to 
fill in any area of the screen 
with a specified colour. 

A very limited form of 
window is implemented on the 
C128 through the WINDOW 
command. This allows you to 
set up a rectangular area on the 
screen in which all further 
screen updates will occur. The 
size of this rectangle can also 
be set up outside a program by 
using ESC T to set the top left 



SPRITES 

As with the C64 there are eight 
sprites available for use on the 
C128. These can be either hi- 
res one colour, or multi- 
colour. However, unlike 
the C64, you'll never have to 
perform a single POKE to 
memory as Basic 7.0 supplies all 
of the commands that you'll 
ever need. You don't even 
need a sprite editor as there is 
one built into Basic. 

SPRDEF is the command 
that turns on the C128's sprite 
editor. On entering the 
command the screen clears 
and a sprite grid is displayed on 
the screen. Facilities available 
in the editor are: turning on 
and off multicolour mode, 
changing the colours, expan- 
sion of the sprite in X and Y 
directions, copying sprites and 
saving sprites. In fact all of the 
commands that you are likely 
to need are implemented. One 
fairly major omission from the 
sprite editor is the ability to 
move the sprite around in the 
grid. You cannot, for example, 
rotate a sprite or shift it left by 
one pixel. No doubt someone 
will develop a routine to 
perform these commands. 

Another way of defining a 
sprite is to 'draw' the sprite 
onto the screen using the many 
drawing commands. The 
SSHAPE command can then 
read the sprite data into a string 
variable. Moving the contents 
of this string into sprite 
memory is also made very easy 
by the SPRSAV command, this 
moves the specified string into 
the sprite not required. 

The SPRITE command 
allows you to turn on and off 
the individual sprites. SPRITE 
also lets you set the sprite 
colour, whether it passes over 
or beneath the background. 



the sound is to be incremented 
or decremented while playing, 
the minimum frequency the 
note can go to, how big the 
step up or down is, the type of 
ret i sprite a certain distance waveform to use and the pulse 
specified angle and, width if you are using a square 

wave. As you can see, some 
very interesting effects can be 
made by using this command. 
Another command is designed 
to make the playing of music 
easy, this is the PLAY statement. 
PLAY allows you to set up a 
string of synthesiser control 
characters inside quotes. Char- 
acters allowed are the musical 
notes ABCDEFG, characters 
which tell the synthesiser what 
type of note is playing and 
characters to specify the voice. 
Looking after your sprites is octave, envelope volume and 
longer a problem as the filter. Ten predefined enve- 
lopes are available ranging 
from harpsichord to xylophone 
and you are able to define your 
own using the ENVELOPE 
command. TEMPO defines the 
speed of the song being played 
and VOL the volume. The 
command FILTER will also let 
you set up the filters para- 
meters very easily. 

Adding a musical accom- 
paniment and sound effects to 
your programs is now very 
easy. Even a beginner will soon 
be producing sounds that are 
the same quality as those that 
the top programmers have 
been producing on the C64. 



can take a number of forms. It 
can place a sprite at a specified 
point on the screen. It can be 
used to move a sprite to a new 
position relative to its old one, 
mov 
at a 

perhaps its most powerful use, 
it can set a sprite moving in a 
specified direction at specified 
speed and keep it moving. 
As you can probably see, the 
MOVSPR command will be a 
great boon to anyone who 
wishes to write a game 
program. Moving your latest 
deadly creation across the 
screen can now be done by one 
command rather than the 
numerous lines of code that 
C64 users are used to. 



no 

COLLISION command will 
cause a jump to a specified line 
number when a sprite hits the 
background or another sprite. 
The BUMP command can then 
be used to return the values of 
any sprites that have collided 
since the last BUMP command. 

Finding out the specific 
details of any sprite is also made 
easy with a number of 
commands. RSPCOLOUR 
returns the colour of a 
specified sprite. RSPOS will 
return the X, Y co-ordinates of 
a sprite, very handy after a 
BUMP instruction, and 
RSPRITE will tell you whether a 
sprite is on, off, expanded etc. 

As you can no doubt see 
from the brief mention of the 
sprite manipulation commands 
that are mentioned above, 
writing any sort of program that 
uses sprites is now extremely 
simple. Before very long we 
should start to see some 
excellent graphic programs 
written totally in Basic. 

Sound 

The sound chip that is used in 
128 mode is exactly the same as 
in the C64, the major 
difference being that there are 
now a large number of 
commands available to make 
control of it easy. There are five 
commands available for sound 
manipulation. SOUND is used 
to place quick and easy sound 



Verdict 

Obviously I have not been able 
to cover all of the details of the 
C128 and its Basic, there are 
many commands that I have 
not covered. However, from 
the few that I have mentioned I 
think it should be fairly obvious 
that the C128 is a powerful 
machine, or should I say 
machines? The fact that it will 
run all C64 software, and that 
thousands of business 
packages are available with 
CP/M, make the machine a 
bargain for the beginner, 
hobbyist and businessman 
alike. 

Commodore seems to have 
a winner. 
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Commodore 64 

Only you can save Europe from 
destruction! It's ROCKET LAUNCH, the 
thrilling war game that reproduces a 
European map. More ambitious? Try 
rescuing your crew under an ultrafast 
GALACTIC ATTACK and escaping back to 
your spaceship! Just two of the great 
games on your Cassette 50, featuring 
high resolution and user-defined 
graphics, sprites, sound and music. 
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37. Planets 
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42. Space Search 
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44. Rats 

45. Tanker 

46 Parachute 

47. Jet Mobile 

48. High Rise 

49 Tha Force 

50 (.change 
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Our resident linguist, David 



Janda, gives you a breakdown 



of Pascal packages for the 



C64. 
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PASCAL WAS INVENTED BY ONE MAN. 
Niklaus Wirth of the ETH Technical 
Institute of Zurich in 1970. It is a compiled 
language that was designed as an aid to 
teaching good programming practice. 

Because the language is very concise, 
institutions found it easy to implement on 
their systems. Software houses also dis- 
covered that it was possible to implement 
Pascal on many home micros, hence the 
reason for its early appearance on the 
micro scene. 

Program Body 

Unlike Basic, where you have a free hand 
in program structure, Pascal requires the 
programmer to 'section' his programs. 
There are three main sections to a Pascal 
program. 

PROGRAM - header declarations 

BEGIN - Main body 

END 

The first section is the program 
header. Every Pascal program must start 
with the reserved word 'PROGRAM', 
which is followed by the name of the 
program. This can be optionally followed 
by I/O declarations, implemented in 
various ways in different compilers. 

The next section is the declarations. 
There are a number of these. First there is 
the reserved word 'CONST', used to 
define a symbolic constant: 

CONST 
Pl= 14159; 
AGE=23; 

In the example, two constants have been 
declared. Following the constant 
declarations, come the more common 
variable declarations: 

VAR 
PI : REAL; 

SUM,WEIGHT,TOTAL : INTEGER; 
SWICH : BOOLEAN ; 
INITAL : CHAR; 

The four data types are integer, real, string 
and boolean. Pascal requires all variables 
to be declared explicitly. For Basic 
programmers this may come as a bit of a 
shock. It's very easy in Basic to declare yet 
another variable as you need it, but in 
Pascal this is not the case. The good point 
in declaring variables is that you need to 
do some thinking and plan on how many 
variables you will need in the first place! 



The next declaration is probably one 
of the most powerful features of Pascal - 
type definition. As you can see from 
above; there are four data types in Pascal. 
These are pre-defined data types, and if 
you wish you can declare more: 

TYPE 

DAY ^(SUNDAY, MONDAY, TUESDAY. 
WEDNESDAY, THURSDAY, FRIDAY, 
SATURDAY); 

To make this a little clearer imagine the 
following: 

TYPE 

INTEGER=(1,2,3,4, 65534,65535); 

In other words, defining your own data 
type is a convenient means of giving a 
name to an ordered sequence of known 
elements. To add the icing to the cake, a 
SET can be declared which is a collection 
of objects of the same type: 

TYPE 

CAPS=SET OF 'A..Z'; 

Now we can have the following in a VAR 
list: 

.VAR 
LETTER : CAPS; 

The last two items in the declarations 
section of a Pascal program are 
procedures and functions. Basically, a 
procedure is a sub-program (a sort of 
subroutine), which contains other state- 
ments and so on. Functions are a means of 
declaring new operations that Pascal does 
not have. 

So far, the main program body has not 
been discussed. As you might have 
already guessed, Pascal programming 
requires a lot of thought. This is a good 
thing because people tend to program at 
the keyboard without thinking first. 
Thinking about what data types and 
variables you'll need will encourage 
thought, and a good program can be the 
final result. 



Pascal Syntax 

The third section in a Pascal program is the 
main body of the program. Here, the first 
and last reserved words are BEGIN and 
END, with the final END followed by a full 
stop. I say 'final' because there are 
normally more than one set. To under- 



stand this better, here is a very simple 
Pascal program: 

PROGRAM Greeting; 
BEGIN 

WRITELN('Hello Your Commodore 
readers!') 
END 

Notice that there is no declaration 
section. The two statements in our small 
example are the first line and WRITELN. 
Statements are separated by a semi-colon. 
The exception to this case is the statement 
preceding and END: 

PROGRAM Greeting; 
BEGIN 

WRITELN('Hello'); 

WRITELNfHow are you today?') 
END 

In the example, the first statement 
after BEGIN ends with a semi-colon 
because the next line contains another 
statement. Now look at this example: 

PROGRAM Count; 
VAR 

I : INTEGER; 
BEGIN 

WRITELN ('Watch this!'); 

FOR l:=1 TO 10 DO 
WRITELN('Ying') 
END 

This simply prints 'Watch this' followed by 
'Ying' printed 10 times. However, if I 
wanted to print 'Ying' followed by 'Yang' 
on the next line a nested BEGIN. .END 
has to be used: 

PROGRAM YingYang; 
VAR 

I : INTEGER; 
BEGIN 
WRITELNfWatch this!'); 
FOR I: =1 TO 10 DO 
BEGIN 
WRITELN('Ying'); 
WRITELN('Yang') 
END; 

WRlTELN('That's all folks.') 
END 

The two statements between the 
second BEGIN.. END are considered as a 
compound statement i.e. treated as one. 
This example also demonstrates the use of 
identation. This is NOT compulsary, but it 
does make the program easier to read and 



follow ihrough logically. The normal rule 
of thumb is that when nesting occurs 
(more BEGINs) you indent, and as the 
END is matched on the same column 
indentation occurs: 

BEGIN 
statements 
BEGIN 
statements 
BEGIN 

statements 
END 
END 
END 

Procedures and Functions 

Tables one and two list the standard Pascal 
reserved words as well as pre-defined 
procedures and functions. There are not 
many, but theyare pretty powerful. Pascal 
provides the features to define your own 
procedures and functions made up from 
existing procedures and functions. 

In essence, procedures and functions 
are mini-programs. They may have their 
own declarations and program blocks just 
like the main program. Although similar, 
there are a couple of differences between 
the two. Procedures do not have to have a 
parameter passed to them, although it is 
possible to pass parameters to and from 
procedures. Functions on the other hand, 
must have a parameter and can be used in 
comparisons whilst procedures cannot. 

Here is an example of a program that 
uses a procedure. All it does is print the 
numbers one to 10, 10 times: 

PROGRAM Test; 
VAR 
I : INTEGER; 
PROCEDURE Count; 
VAR 

I : INTEGER; 
BEGIN 
FOR l:=l TO 10 DO 
WRITE(I) 
END; 
BEGIN 
FOR l:=1 TO 10 DO 
Count 
END 

Notice that the procedure and the main 
program use a variable with the same 
name. This is OK, because variables are 
local to procedures and functions. Also 
note that the procedure 'Count' is called 
from the main program just like any other 
procedure (no line numbers like Basic!). 

A function is declared in a similar 
manner, although its operation is 
different: 

PROGRAM Table; 
VAR 
I : INTEGER; 

FUNCTION Square (N : INTEGER) : 
INTEGER; 



BEGIN 

N:=N*N 
END; 
BEGIN 
FOR l:=1 TO 10 DO 
BEGIN 
WRITE(I); 

WRITELN(Square(l)) 
END; 
END 

In the example, I have used the function 
'Square' directly, but as with normal 
functions it is possible to pass the result to 
a variable. 

Control Structures 

Commodore Basic is a bit limited as far as 
control structures are concerned. Pascal 
on the other hand, offers the programmer 
some very elegant means of controlling 
program flow. 

One control structure which has 
already been covered in the examples is 
the FOR. .DO loop, which is similar to the 
Basic FOR. .NEXT: 



FOR i:=1 TO 10 DO 
WRITELN(I); 

DOWNTO is used to reverse the loop: 

FOR l:=10TO 1 DO 
WRITELN(I); 

To include more than one statement 
within the loop boundaries, a compound 
statement is used: 

FOR l:=1 TO 20 DO 
BEGIN 
Statement; 
Statement; 



Statement 
END; 

- 

One last point about a FOR.. DO Mop is 
that unlike Basic, Pascal does not like the 
index (the variable after the FOR) to be 
altered within the loop itself. 

Probably the major drawback with the 
FOR. .DO type of loop is that you have to 
specify an end to the loop. That is, a 
FOR. .DO loop must have fixed 
boundaries - even if passed by variables. 
Pascal offers a couple more control 
structures which are more flexible. 

The first of these flexible control 
structures is REPEAT. .UNTIL: 



REPEAT 

A:=A+1; 

WRITELN(A) 
UNTIL A=10 



Notice that A would have been 
initialised before entering the REPEAT 
loop. Also note thai compound 
statements do not have to be used. 
Instead, statements are merely separated 
by the semi-colon. Can you see why this is 
the case? 

You can see from the example that a 
boolean test is performed after the 
UNTIL. Any of the boolean operators can 
be used in this test including ' ', '='andso 
on. The most important point worth 
remembering about the REPEAT. -UNTIL 
loop is that the statement(s) within it will 
be performed at least once. This is 
because the test is done at the end of the 
loop. 

The second 'ever-so-flexible' control 
structure is the WHILE. .DO loop which 
takes the following form: 

WHILE level desirable DO 
BEGIN 

level :=level+1; 

mix 
END; 

Notice that the boolean test is performed 
before any statements are executed so 
that if the boolean test is false no 
statement will be executed. A final point 
to note is that, unlike the REPEAT.. UNTIL 
loop, multiple statements must betreated 
as compound statements i.e. with a 
BEGIN. .END. 

The final control structure to be 
considered is the CASE statement. This is 
used in situations where the number of 
alternatives is greater than two. It is best 
understood by example; 

CASE month OF 

1:WRITELN('January'); 

2:WRITELN('February'); 

3:WRITELN('March'); 
12:WRITELN('December") 
END; 

In the example the variable 'month' has a 

certain value. Depending on what that 

value is, perform a different action. That is 

exactly what the CASE statement does. If 

'month' is equal to five, then 'May' will be 

printed, and so on. 

Oxford Pascal 

Oxford Computer Systems 

Disk 

Not all compilers produce native machine 
code, some produce what is known as P- 
code. The version of Pascal from Oxford 
Computer Systems does just that. The 
result is an executable program that 
doesn't run very fast. However, it should 
be noted that there are numerous Pascal 
P-code compilers because they are easy to 
implement. 

Although Oxford Pascal is quite 
expensive, you do get a lot for your 
money. First, it follows the Pascal standard 
almost to the letter. Because of this it 
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could be used as a serious Pascal training 
tool. 

A major problem with disk based 
compilers is the time it takes from writing 
the program to running it! Because of this, 
Oxford Pascal offers two methods of 
running Pascal programs. 

The first method is to use the resident 
compiler. This is the default option when 
the compiler is first loaded. In this mode it 
is possible to write, amend, compile and 
run a Pascal program without having to 
access the disk drive. This allows learners 
to get their feet wet and generally muck 
about. 

The second method of operation is 
disk mode. Here, a program has to be 
developed in the standard method. That 
is, entered, saved to disk, compiled and 
re-edited if any errors occur. This mode 
does offer numerous advantages though. 
Programs can be much larger as 
compilation is from disk. Other 
advantages include data file handling, the 
availability of the full compiler syntax, 
external procedures and so on. Object 
code can also be converted to run as stand 
alone code. 

Machine dependant features include 
a form of peek and poke, colour and 
sound and some graphic commands. 
Most notable of these is the window 
command that allows the screen to be 
split between the high-resolution graphic 
screen and the text screen. 
Pascal 64 
Orpheus Ltd 
Tape 

Pascal 64 and Oxford Pascal are so similar 
in many ways that most of the comments 
in these reviews apply to both packages. 

As with Oxford Pascal, Pascal 64 offers 
an almost complete definition of Pascal as 
defined in the User Manual and Report by 
Wirth & Jensen. It is however, a cassette 
version and does not produce stand alone 
code (i.e. does not have a disk mode). 

The Pascal source is entered in an 
editor which is very similar to the standard 
C64 editor. 

There are a few differences and 
additions. Namely, source code can be 
entered with indentation, thus showing 
the program structure. Additions to the 
standard editor include commands such 
as search and replace, auto line 
numbering, renumber, delete and so on. 

The source program can be compiled 
with or without a listing, which can be 
directed to the printer. The object code 
can then be run and/or saved to tape. But 
as stand alone programs cannot be 
produced, it is necessary to have the 
compiler in memory when running any 

object code. 

Additions to the standard are similar to 
what Oxford Pascal offers. But the general 
purpose DRAW command in Pascal 64 is 
much faster (see benchtests). Additional 
features include sprite handling, the 
ability to read a light-pen and the joystick 



ports. 

Both Oxford Pascal and Pascal 64 have 
common faults. First, both packages are 
slow (see benchtests). In fact neither of 
the two compilers is that much faster than 
Basic. This is a great pity as one of the 
advantages of Pascal is its speed. 

Other problems include flickering of 
the high-resolution graphics screen. But 
the biggest fault is that this screen is 
divided into 250 by 200 pixels, why not the 
full 320? 
Pascal 64 
First Software 
Disk 

When I first heard about this package I 
though; "Great, a true Pascal compiler." 
However, after using it I have mixed 
feelings; it's both very good and really 
awful. 

The package consists of a disk and 70m 
page poorly written manual/user guide. 
The software was written by a German 
company called Data Becker and the text 
of the manual and software have suffered 
through translation! 

The compiler is very disk intensive and 
takes about three stages before a program 
can be run. The tasks involved in 
developing a program with this package 
are; write the source, compile the source, 
link the object code and save object code 
to disk. On the good side the compiler 
produces compact stand-alone code, but 
don't expect to achieve that in five 
minutes. 

The biggest let-down with this 
package is the first stage of producing a 
program. There is no editor and it is 
necessary to enter the source code using 
the standard editor. Not only is this a 
bother (there are no extra editing 
commands), but it is a disaster. The reason 
for this is simple. Part of the 'beauty' of 
Pascal is the ability to write programs that 
are indented. This makes the program 
look neater, easier to read and identify. 
Because Pascal 64 requires the source to 
be entered using the standard '64 editor 
no indentation is allowed (unless spaces 
are preceding by a ';' which makes the 
source look ugly!). 

Another weird thing about the 
package is that all Pascal keywords must 
be followed by a space character. This is 
non standard, and the more experienced 
programmer will be frustrated by this, 
whilst the beginner will pick up a bad 
habit. Why a space is required, is beyond 
me. 

Although the review so far has been 
negative, things get better after the 
source has been entered. Once the code 
has been compiled and linked a machine 
code file is produced and can be run 
stand-alone. 

The compiler itself is the best of the 
three packages reviewed, offering more 
advanced features. These include com- 
prehensive file handling, external 
procedure support, high-resolution plot, 



sprite command etc. 

An integer command enables faster 
execution if only integers are being 
handled. Another impressive feature is 
the ability to run a procedure as an 
interrupt. The constraints on this are 
rather limited, but it could be useful. 



Table 1 — Pascal Reserved Words 

Here is a list of Pascal reserved words. 
Note that this list is the required set of 
words and that some versions may have 
more - but not less. 

AND, ARRAY, BEGIN, CASE, CONST, 
DIV, DO, DOWNTO, ELSE, END, FILE, 
FOR, FUNCTION, GOTO, IF, IN, LABEL. 
MOD, NIL, NOT, OF, OR, PACKED, 
PROCEDURE, PROGRAM, RECORD, 
REPEAT, SET, THEN, TO, TYPE, UNTIL, 
VAR, WHILE, WITH 

Table 2 — Standard Functions and 
Procedures 

Every version of Pascal should have the 
following functions and procedures (with 
the possible exception of NEW and 
DISPOSE). All implementations of Pascal 
on the 64 have more pre-defined pro- 
cedures which deal with colour and so on. 
Note that the brackets indicate an 
argument. 

GET(), PAGE(), PUT(), READ, READLN, 
RESET(), REWRITEt), WRITE, WRITELN, 
ABS0, ARCTAN0, COS(), ESCP(), LN(), 
SIN(), SQRO- SQRT(), EOF(), EOLN(), 
ODD(), CHR(>, ORD<), ROUND<), 
TRUNCO, PACKO, UNPACKO, NEW(>, 
DISPOSEO, PRED(), SUCC() 

Summary 

If you intend to learn computer science 
then I would strongly recommend that 
you get a Pascal compiler for your 64. 
Pascal has a small amount of reserved 
words, yet many of the up and coming 
fifth generation languages incorporate 
Pascal-like structures. 

As far as recommending one of the 
three packages I can only suggest this. 
If you wish to learn Pascal, then Oxford 
Pascal is by far the best. Even though 
'Orpheus' Pascal '64 is very similar, the 
disk operation within Oxford Pascal is a 
must. However, Oxford Pascal is a bit 
pricey, so Orpheus' Pascal 64 would be a 
very good second. 

For the more experienced 
programmer I would recommend First 
Publishing's Pascal 64. Even though the 
user interface and daft syntax require- 
ments are off-putting. I say this because 
the results are quite fast, and it does have a 
number of advanced features not found 
in the other packages. 

David Janda is prepared to discuss this 
subject further through electronic mail. 
He can be contacted on the following 

One-To-One: 13419001 
Prestel: 919992677 




BORED WITH SHOOT 'EM UP SPACE INVADERS ? 
f-w j then it's time to 

Sntiiwsunknown 



Enter the world of computer adventure Each adventure takes several weeks to master, providing 
nour5 of fascination and intrigue. *>u must use your imagination and logic to unlock the 
mysteries of each adventure. Map skills are essential since each 5lerra adventure contains over a 
hundred full-colour computer generated images which lead you in every direction toul need to 
muster up al your wit and tog* and perseverance for each 5terra adventure win prove a test to 
your imagination and ingenuity . . 

THE WIZARD AMD THE PRIMCE55 

Become the hearty and steadfast adventurer who rescues the fair princess from the dreadful 
wizard, Marin tie has taken her to hs towering casDe beyond the great mountains Mxj must 
outwit and outmanoeuvre the mysOcai power of the wizard which has grown dark and potent 
through rjme. Begin your adventure in the village of Serlnla, but take heed, evervthlnq b not as t 
may appear 

ULYSSES AMD THE GOLDEN FLEECE 

Protected by the gods, the 'Golden fleece: legendary treasure of ancient mythology, has been 
kept from man for many decades Many valiant men have attempted its recovery, but none have 
been successful in possessing n for any length of Ume 

As Ulysses you are assigned to the task of retrieving the 'Golden fleece' and return « to 
the King >bu set sail from Ancient Greece and on your voyages encounter many of the foes 
that troubled your predecessors; the wicked 5irens. the one eyed Cyclops; Pluto, 
mythical god of the under- 
world and other deadly 
enemies. Legend acclaims 
Ulysses as the most danng 
and skilled seaman of all Dme. 
Clad m a pocketed Toga 
and chain armour, *s 
opto you to prove it I 





MI55IOM A5TER0ID 

A terrible tragedy is about to happen. An asteroid of Incredible size is headed for a direct cotston 
w*h the earth The predicted mpact could destroy all life- unless something © done quickly. 

It s your duty to fly to the asteroid in a brave attempt to alter its course But Ume a of the 
essencel Sou must (ravel quKWy and carry out your tasks precisely t disaster is to be avowed 
*u have a predetermined time in which to achieve your objective Be quick and careful 
the future of the earth 15 m your hands atone! 





— flit ■tf/nenazn—J 

ADVENTURES 



All American Adventures Limited. 
Unh 10, rarinuy Industrial Centre. 
Ba wge Street. 
BlrmiBflhM B7 «LY. 

Telephone: 021-359 8881. 
Td«: 337288. 
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I This month we begin 



la new series by Steve 



| Carrie. When you've"] 



collected all three 



parts you'll have a fulj 



machine code 



development system. 
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THE AIM OF THIS SERIES OF 
programs is to provide the 
reader with a set of tools to aid 
in the production of 6502 
machine code programs on a 
C64 suitably equipped with 
al541 disk drive. 

There are three separate 
programs; a Machine Lang- 
uage Monitor/Editor, a Macro 
Processor and an Assembler. 
The Monitor is essentially the 
control program from which 
the other two may be called 
upon to process source code 
written using the Editor. 

The Macro Processor is not 
a full implementation since it 
does not handle conditional 
processing. However, it does 
allow sections of source code 
to be written as a "macro" with 
parameters for later inclusion 
in source code programs. 

The Assembler is a two-pass 
type which produces an 
executable disk file which may 
be loaded into memory by 
using a simple Basic command: 

LOAD "filename",8,1 

The programs are disk- 
based since it was necessary to 
have the random access and 
reliability that a disk drive 
affords. 

I will first deal with the 
Monitor/ Editor program and 
then the Macro Processor and 
Assembler in turn. 



The Monitor 

The four Basic listings, when 
loaded and RUN in sequence 
1-4 will POKE the complete 
Monitor/Editor program into 
memory. Each listing contains 
REM statements to show 
where the various sections of 
code begin and end. I suggest 
that you type in and save all 
four programs before you 
attempt to generate the code. 
A word of caution here; check 



MACH 




Monitor Command Summary 

Command Description 

input processor register values. 
The R command outputsa similar 
format allowing free use of the 
C64 screen editor, 
input 8 consecutive byte values 
into memory starting at addr. 
The M command outputs a 
similar format allowing free use 
of the C64 screen editor, 
initialises, performs a warm start, 
display contents of memory 
between addrl and addr2. 
displays processor register 
values. 

exits to Basic command mode, 
restores processor register values 
and begins execution at addr. 
copy the contents of memory 
block addr - addr to a block 
startling at addr3. 
fill the memory block addrl- 
addr2 with the value byt. 



+pc,sr,ac,xr,yr,sp 



addr,byti,...byt8 



I 

M addr1,addr2 



X 

G addr 

T addrl,addr2,addr3 



F addrl ,addr2.byl 



Note that in the above commands, the value byte may be 
given in ASCII format by preceding the character by the 
apostrophe ( ). For example, F 5000,6000, A will fill the 
block 5000-6000 hex with the value 41 hex, the ASCII 
code for "A". 

L filename loads a file into memory at its 

original address. 
S filename addr1,addr2save the memory block addrl- 

addr2 to a disk file with name 

filename. Filenames should not 

contain spaces. 



Monitor Command Summary — Multiple 
Letter Group 

RESET causes the machine to cold start 

DIR displays current disk directory 

CAT displays current disk directory 

DERR displays disk drive status 

INIT initialises drive (disk 1 command) 

COMPACT validates disk (disk V command) 

FORMAT diskname.lD formats disk (disk N command) 
COPY filename=copies a file (disk C command) 
filename 

RENAME filename= renames a file (disk R command) 
filename 

SCRATCH filename 
HEX 
DEC 
TTY 
VDU 
EDITOR 



deletes a file (disk S command) 
sets default I/O mode to hex 
sets default I/O mode to decimal 
defaults output device = PRINTER 
defaults output device = SCREEN 
enters Editor mode 



your typing carefully as no 
checksum facility is provided. 

When all four are ready to 
be RUN, load and execute 
them each in turn then give the 
following Basic direct 
command: 

POKE43,0:POKE44,130:POKE 
45,128: POKE46,142:SAVE" 
MONITOR",B,1 

Having done this, type: 

POKE43,1:POKE44,8:NEW 

You should now have a 
copy of the actual program on 
disk and are ready to test it out. 

Testing the Monitor 

Enter the monitor by issuing 
the direct Basic command: 

SYS 33280 

You should be given the 
message: 

COMMODORE 64 UTILITY 
SERIES- 
MONITOR EDITOR O.S. VI. 2 
(C) 1985 S.D.C. 

followed by a " " prompt and 
a flashing cursor. You are now 
in Monitor command mode. It 
is from this that you will com- 
mand most of the functions of 
the Monitor/Editor and the 
other programs. 

A summary of commands is 
given later but for now try the 
following commands. 

Type DERR followed by 
return. The disk status is given 
on screen in a form similar to: 

DISK DR. :0, OK,0,0 

where DISK DR. indicates that 
this is a disk status report. 
Machine reports are prefixed 
by MACHINE. 

Now type DIR. The 
directory of the current disk 
will be displayed on screen in a 
format similar to that obtained 
by using the more usual Basic 
method LOAD"$",8. 
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Note that some commands, 
such as COPY and RENAME 
automatically produce a disk 
status report to show whether 
or not the command has been 
carried out successfully. 

The formats of the disk 
commands SCRATCH, COPY 
etc. are the same as are given in 
the 1541 disk users manual. 
Note that in all cases, spaces, 
and not quotes, are required 
around filenames. For 
example, the command to save 
a block of memory to disk is S. 
Thus the format is: 

S filename addr1,addr2 
and not 

S "filename" addr,addr2 

Now type I. This will 
perform a warm start into the 
monitor. If you type X, the 
machine will re-enter BASIC. 
To get back into the Monitor, 
simply type the SYS 33280 
command again. 

One thing to note is that 
the 6502 BRK vector is now set 
to jump into the monitor. This 
means that you may insert BRK 
instructions into your machine 
code programs to act as STOPs 
for debugging purposes. To see 
the effect of this, type the 
following: 

POKE2,0:SYS 2 

A zero byte is the code for 
the 6502 BRK instruction. You 
will be given the entry message 
as before but this time it will be 
preceded by: 



■* 



BREAK" 



indicating that a BRK 
instruction was encountered 
during execution of a machine 
code program. 

Any other words typed in are 
assumed to be "external" 
commands i.e. disk files which 
act as commands. The 
programs MACRO and 
ASSEMBLER are examples of 
these. When you want to call 
the Macro Processor for 
example, assuming you called 
the program MACRO, you 
simply type MACRO plus a 
couple of filenames and the 
Macro processor will be loaded 
and run. An external command 
is assumed to begin at address 
9000 hex. Therefore, if you 
want to write a program to act 
as an external command, it 
should have a start address of 



Command 
A 



M 



2 •! 



Editor Commands 

Description 

Auto line numbering this is a 
useful feature since it does away 
with the need to type in line 
numbers. Two formats are valid. 

1 A : start 10, increment 10 

2 A10.20 : start 10, increment 20 
Format 2 may of course use other 
numbers. 

Delete lines there are two 
methods of line deletion: 

1 The usual Basic method, typea 
line number. 

2 The D command. An example 
would be D20-60 which would 
delete lines 20 through to 60. 
Renumber lines this simply re- 
numbers the lines of a source 
code program. The format is the 
the same as for the A command. 
List program lines - the RUN/ 
STOP key may be used to termin- 
ate the listing. If a line number is 
supplied, listing will commence 
from that line e.g. L200will begin 
listing at line 200. 

Merge file - the format is Mfile- 
name. The file named will be 
merged onto the end of the file 
currently in memory. 
Scratch (delete) a file - this is 
similar to the Basic command 
NEW. 

Initialise - re-enter editor 
deleting any file currently in 
memory. 

Exit editor - there are three for- 
mats for this command. 
: save file and exit. 

: save file without save. 



3 'filename : save file with a new name and exit. 



9000 hex. At the end of 
execution, a JMP $8200 
instruction will cause a re-entry 
to the monitor. 

The Editor 

The Editor is provided so as to 
allow preparation of source 
code in the correct format for 
the Macro Processor and 
Assembler. The basic idea 
behind the Editor screen 
format is that source code 
symbols, operands and 
mnemonics all have defined 
areas in a source line. These 
areas are known as FIELDS and 
both the Macro Processor and 



Assembler expect to find their 
source code arranged in these 
fields. 

On a normal C64 screen, 
there are 25 rows of 40 
characters. The editor arranges 
the screen such that there are 
four fields of 10characterseach 
numbered one to four starting 
at the left side. Since the 
normal screen editor will 
accept up to 80 characters i.e. 
two lines of text, the last field- 
field four - may extend for up 
to a maximum of 50 characters. 
Field one is only used by the 
Editor to accept and display 
line numbers. It is not actually 
stored in the final source 



program. Field two is the 
SYMBOL or LABEL field, field 
three is the INSTRUCTION or 
MNEMONIC field and field 
four is the OPERAND field. 

The functions of these fields 
will become clearer as we go 
on to explain the Macro 
Processor and Assembler. 

A typical Editor screen 
layout is shown below. The top 
line is for guidance only and is 
not on screen. 

FIELD 1 FIELD 2 FIELD 3 FIELD 4 
1000 LABEL 1 JSR DELAY 
1010 LDA $40 

1020 ASL A 

etc 

If you're wondering how 
you are going to keep all the 
field entries in the right places 
then read on. When in edit 
mode, the function key F1 is 
used as a TAB key. When 
pressed, it will advance the 
cursor from its present position 
to the start of the next field. For 
example, suppose the line 1000 
in the above example was 
being typed in. The line 
number would be typed in and 
the F1 key pressed. The cursor 
would be advanced to the start 
of field 2 - the L of LABEL1. 
Pressing F1 again would 
advance the cursor to the start 
of field 3 - the J of JSR and so 
on. 

This feature coupled with 
an auto line numbering facility 
makes for easy code entry. 

Other facilities include line 
renumbering, block line 
delete, source code file 
merging and single line delete. 
A program is entered in a 
similar fashion to a Basic 
program with the line 
numbers. These numbers are 
for editing purposes only and 
do not affect the final object 
code generated by the 
assembler. All the normal 
Commodore screen editing 
facilities are supported by this 
editor. 

Entering and Leaving 
the Editor 

While in Monitor command 
mode, enter the command 
EDITOR. The message EDITOR. 
ENTER FILENAME will appear. 
You should enter the name of 
the file you wish to use. If the 
file exists on the current disk 
the Editor will read it in and you 
will be able to work on it. If 
however the file does not exist 
on the current disk, the messge 



NEW FILE will be printed. In 
both cases, a flashing cursor 
(no prompt} will signify Editor 
command mode. 

Before going on to explain 
the Editor commands, a word 
or two about leaving it. The 
name entered as the filename, 
is stored by the editor. At the 
end of the editing session the 
user may simply enter the 
command • and the file is saved 
back to disk. An auto disk 
validate is carried out. 

This is done to prevent 
problems associated with the 
1541 " 0:" bug. In some cases 
it may take a long time to 
validate a disk especially if it is 



getting dull. Some of you may 
find this a bit of a nuisance but I 
personally prefer it to a 
corrupted disk. If you want to 
do away with this facility, refer 
to listing seven which contains 
details on removing it. 
(see Editor Commands). 

When you have the Macro 
Processor and the Assembler 
complete, I will give some 
programming examples to let 
you get used to the operation 
of the Editor and its formats. 
Next month I will give listings 
of the Macro Processor and a 
description of Macros and 
Macro processing. 
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5 REtt ** JUMP TABLE ** 

6 REM »♦**»»«»•«»•**«» 

10 DATA 76,114,137,76,152,135,76,1 
31, 135,76, 1B9, 134,76, 139, 132,76 
20 DATA 156,132,76,94,132,76,51,13 
2,76, 17, 132,76,35, 132,76,45 
30 DATA 132,76,109,135,76,18,135,7 
6, 16, 141 

34 REM »*»»•»***•*»»»»»»»••»»»»»*» 
*»»* 

35 REM ** CrjririAND & MESSAGE TABLES 
mm 

36 REM •••*••**•*••••*•*•••••*••** 
mm mm 

40 DATA 77,0,82,0,71,0,84,0,70,0,7 
6 , 0 , 83 , 0 , 43 , 0 , 42 , 0 , 73 ,*0 , B8 , 0 
50 DATA 82,69,83, 69, 84, 0,6B, 73, 82, 
0, 67,65, B4, 0,83, 67 

60 DATA 82,65,84,67,72,0,70,79,82, 
77, 65, 84,0, 73, 7B, 73 

70 DATA 84,0,67,79,80,89, 0.B2, 69,7 
8,65,77,69,0,84,89 

BO DATA BO, 69,0, 67, 79, 77, 80, 65, 67, 
84,0,68,69,82,82,0 

90 DATA 72,69,88,0,68,69,67,0,69,6 
8,73,84,79,82,0,86 

100 DATA 68,85,0, 84, B4.B9, 0,255,83 
, 133,45, 133, 114,134,50, 134 
110 DATA 24B, 133, 6, 130, 3, 130, 20B, 1 
33 , 171 , 133 , 114 , 137 , 158 , 134 , 226 , 252 
120 DATA 183,136,189,136,57,135,60 
, 135, 101,135,63, 135,66, 135,46, 136 
130 DATA 98,135,9,133,223,135,226, 
135, 91 , 139, 150, 136, 156, 136, 13, 10 
140 DATA 67,79, 77, 77, 79, 6B, 79,82,6 
9 , 32 , 54 , 52 , 32 , 85 , 84 , 73 
150 DATA 76, 73, 84,89,32, 83,69, B2, 7 
3,69,83,46, 13, 10,77,79 



160 DATA 7B,73, 84, 79,82, 32,69, 6B, 7 

3,B4,79,B2,32,79,46,B3 

170 DATA 46,32,86,49,46,50,13,10,4 

0,67,41,32,49,57,56,53 

180 DATA 32,83,46,68,46,67,46,13,1 

0, 13, 10,0, 13, 13, 10,42 

190 DATA 42,32,66,82,69,65,75,32,6 

9,78, B4,B2,B9, 32, 42,42 

200 DATA 13,10,0,42,79,75,46,13,10 

,0, 13, 10, 78, 69, B7, 32 

210 DATA 70,73,76,69,13,10,13,10,0 

,13,10,69,68,73,84,79 

220 DATA 92,13,10,0,13,10,42,42,69 

,B2, 82,79,82, 42, 42, 13 

230 DATA 10,0,13,10,77,65,67,72,73 

,78,69,32,58,32,0,68 

240 DATA 73,B3,75,32,68,82,32,5B,3 

2,0,13,10,32,32,32,32 

250 DATA 80,67,32,32,83,82,32,65,6 

7,32,8B,B2,32,B9,B2,32 

260 DATA 83,80,13,10,62,43,32,0,13 

, 10, 69,78,84, 69, B2 

264 REM mmmmmmmmmmmmmmmmmmmmmmmmmm 
mmmm 

265 REM »* INPUT EVALUATION SUBRT . 
mm 

266 REM **»*»•**»•****»•«»***•»»** 
mmmm 

270 DATA 32,70,73,76,69,78,65,77,6 

9, 32,0,238, 64,4B,5B, 255, 32 

280 DATA 138, 173,76,247, 1B3, 201, 48 

, 144, IB, 201, 71, 176,14,201,58,176 

290 DATA 3,41,15,96,201,65,144,3,2 

33,55,96,76,72,178,32,121 

300 DATA 0,32,181,131,72,32,115,0, 

32,24, 130, 144,20, 104,10, 10 

310 DATA 10,10,133,2,32,121,0,32,1 

81,131,5,2,133,2,76,115 

320 DATA 0,104,133,2,96,32,206,131 

,165,2,133,20,32,121,0,32 

330 DATA 24,130,176,1,96,32,206,13 

1,165,20,133,21,165,2,133,20 

340 DATA 96,32,27,130,144,1,96,201 

,65,144,6,201,71,176,2,56 

350 DATA 96,24,96,201,48,144,250,2 

01 , 5B , 176 , 246 , 56 , 96 , 32 , 19 , 177 

360 DATA 144,241,96,169,0,133,20,1 

33 , 21 , 32 , 121 , 0 , 201 , 39 , 208 , 6 

370 DATA 32,115,0.133,20,96,173,17 

4,2,240,3,76,245,131,32,121 

3B0 DATA 0,76,175,131 

1000 FORS-33280 TO 33B75 

1010 READA : PDKES , A 

1020 NEXT 

1030 PRINT "FINISHED" 
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5 REn ** OUTPUT SUBROUTINES ** 

6 REn »***»»*»***»»**»»»«*»**» 

10 DATA 169,32,76,210,255,163,44,7 

6,210,255, 169, 13,32,210,255, 169 

20 DATA 10,76,210,255,169,147,76,2 

1 0 , 255 , 72 , 74 , 74 , 74 , 74 , 32 , 1 29 

30 DATA 132,32,210,255,104,41,15,3 

2, 129, 132,75,210,255,201, 10, 144 

40 DATA 3,105,54,36,9,48,96,173,17 

4,2,240,8, 152,32, 109, 132 

50 DATA 138,76,109,132,152,76,205, 

189,72, 173, 174,2,240,4, 104,76 

60 DATA 103,132,104,134,253,132,25 

4 , 170 , 169 , 0 , 32 , 205 , 189 , 164 , 254 , 166 

70 DATA 253,96,169,6,160,5,162,15, 

140, 32, 20B, 141, 134,2,142,33,208,36 

74 REfl ***♦*»»*»»#•*****».».*»»*** 
»«** 

75 REn *» ERRDR HANDLING *• 

76 REn *«***«»********..»*«»»****» 

80 DATA 138, 16,3, 10B, 2, 3,72,32, 190 
, 138, 163, 98, 160, 131 

90 DATA 32,30,171,104,10,170,169,1 
28, 133, 157, 189,38, 163, 133,34, 1B9 
100 DATA 39,163,133,35,32,204,255, 
169,0, 133, 19,32,220, 170, 160,0 
110 DATA 177,34,72,41,127,32,71,17 
1 , 200 , 104 , 16 , 244 , 32 , 122 , 166 , 32 
120 DATA 18,130,108,2,3,32,18,130, 
169, 111, 160, 131,32,30, \71 , 162 
130 DATA 15,32,198,255,32,228,255, 
32 , 210 , 255 , 201 , 13 , 20B , 246 , 1 62 , 0 
140 DATA 32,198,255,32,18,130,108, 
2,3 

144 REn ***»**«»***»»»•♦*»»..».«». 



- - 



nON I TOR D.S. SUBRT. 



145 REn 

146 REn *»»**»*«»*«•««»*•»».**»**• 
*** 

149 DATA 169,122,160,131,32,30,171 

150 DATA 172,168,2,174,167,2,32,12 
, 130,152,0,32,89, 132, 189, 169 

160 DATA 2,32,15,130,232,224,5,208 
,242,32,18, 130, 108,2,3,32 
170 DATA 21,130,165,20,133,251,165 
, 21 , 133, 252 , 32 , 253 , 174 , 32 , 21 , 130 
180 DATA 32,18,130,169,62,32,210,2 
55 , 169 , 42 , 32 , 210 , 255 , 32 , 84 , 132 
190 DATA 164,252,166,251,32,12,130 
, 160 , 0 , 32 , B3 , 132 . 177 , 251 , 32 , 15 
200 DATA 130,200,132,8,144,243,32, 
225 , 255 , 240 , 22 , 152 , 24 , 101 , 251 , 133 
210 DATA 251,165,252,105,0,133,252 



,197,21, 144, 197, 165,251,197,20, 144 

220 DATA 191,32, 18, 130, 10B, 2, 3, 32, 

21, 130, 155,20, 133,251, 165,21 

230 DATA 133,252,160,0,132,90,32,2 

53, 174,32,21, 130, 164,30, 165,20 

240 DATA 145,251,200,132,90,192,8, 

144 , 235 , 108 , 2 , 3 , 32 , 21 , 130 , 165 

250 DATA 20,166,21,141,167,2,142,1 

68,2, 162,0, 134,253,32,253, 174 

260 DATA 32,21,130,165,20,166,253, 

157 , 163 , 2 , 232 , 134 , 253 , 224 , 5 , 144 

270 DATA 234,108,2,3,32,21,130,165 

,20, 166,21, 133,251, 134,252,32 

280 DATA 253,174,32,21,130,165,20, 

166 , 21 , 133 , 253 , 134 , 254 , 32 , 253 , 174 

290 DATA 32,21,130,160,0,165,20,14 

5, 251 , 230, 251 , 20B , 2 , 230 , 252 , 165 

300 DATA 251,137,253,208,240,165,2 

52, 137,254,208,234, 108,2,3,32,21 

310 DATA 130,165,20,166,21,133,251 

, 134,252,32,253, 174,32,21, 130, 165 

320 DATA 20,166,21,133,253,134,254 

,32,253, 174,32,21, 130, 160,0, 177 

330 DATA 251,145,20,230,251,208,2, 

230 , 252 , 230 , 20 , 20B , 2 , 230 ,21,165 

340 DATA 251,197,253,208,234,165,2 

52 , 197 , 254 , 208 , 22B , 10B , 2 , 3 , 32 , 121 

350 DATA 0,240,13,32,21,130,165,20 

, 166,21, 141, 167,2,142, 16B, 2 

360 DATA 174,173,2,154,173,168,2,7 

2,173, 167,2,72, 173, 169,2,72 

370 DATA 173,170,2,174,171,2,172,1 

72,2,64, 163, 133, 162,227, 141,0 

380 DATA 3,142,1,3,169,131,162,164 

,141,2,3,142,3,3,174,173 

390 DATA 2,154,169,128,133,157,76, 

123,227 

400 REn »*******»»*»»***»•»»»»-»»» 

1000 FDRS-33B76 TO 34492 
1010 READA : PDKES , A 
1020 NEXT 

1030 PR I NT "F I N I SHED" 




= 





Monitor Part 3 



E 



5 REfl **•»•».»»»*•***»*»**»•»»*••• 
»»» 

6 REn I/D SUBROUTINES 

7 REM »**»*»»*•»»♦•»«••*»»»*••**«» 
*» 

10 DATA 32,121,0,162,0,164,128,132 

, 93 , 165 ,0,2, 240 , 15 , 201 , 32 

20 DATA 240,11,200,232,224,50,144, 

241 , 162 , 23 , 108 , 0 , 3 , 132 , 122 , 224 

30 DATA 0,208,5, 162,8, 106,0,3, 164, 

93,96,32,9, 130, 134,2 

40 DATA 152,170,169,58,202,157,0,2 

, 202 , 165 , 94 , 157 ,0,2, 134 , 94 

50 DATA 166,2,232,232,134,2,165,94 

, 133,90, 169,2, 133,91, 164,2 

60 DATA 169,0,145,90,96,169,15,162 

,8, 160, 15,32, 186,255, 169,0 

70 DATA 32,189,255,76,192,255,169, 

15 , 76 , 195 , 255 , 162 , 15 , 32 , 201 , 255 

80 DATA 165,94,160,2,32,30,171,162 

,0,76,201,255, 169,83,44, 169 

90 DATA 78,44,169,67,44,169,82,133 

, 94 , 32 , 232 , 134 , 32 , 40 , 135 , 76 

100 DATA 9,133,141,70,2,169,0,141, 

71,2, 169, 1, 133,2, 169,70 

110 DATA 133,94,76,40,135,169,86,4 

4 , 169 , 73 , 32 , 79 , 135 , 108 , 2 , 3 

120 DATA 32,9, 130, 13B, 72, 152, 170, 1 

04 , 160 , 2 , 76 , 189 , 255 , 169 , 1 , 162 

130 DATA B, 160, 1,76, 186,255,32,33, 

130,32, 122, 135, 169,0,32,213 

140 DATA 255,144,5,162,4,108,0,3,1 

08,2,3,32,33, 130,32, 122 

150 DATA 135,169,32,32,255,174,32, 

21, 130, 165,20, 166,21,72, 138,72 

160 DATA 32,253,174,32,21,130,166, 

20, 164,21, 104, 133,21, 104, 133,20 

170 DATA 165,1,41,254,133,1,169,20 

, 32 , 216 , 255 ,8, 165, 1,9,1 

180 DATA 133,1,40,144,5,162,24,108 

, 0 , 3 , 32 , 183 , 255 , 208 , 246 , 108 

190 DATA 2,3,169,255,44,169,0,141, 

174,2, 169,51, 160, 131 ,32,30 

200 DATA 171,108,2,3,32,207,255,72 

, 32 , 183 , 255 , 41 , 64 , 208 , 2 , 104 

210 DATA 96,104,162,0,32,198,255,1 

69,2,32, 195,255, 108,2,3, 169 

220 DATA 2, 162, B, 160,2,32, 186,255, 

32 , 33 , 130 , 24 , 32 , 192 , 255 , 176 

230 DATA 11,32, 1B3, 255, 208, 6, 96, 16 

2,2,76, 198,255, 162,4, 10B.0 

240 DATA 3,32,12,136,32,204,255,32 

, 131 , 136 , 32 , 241 , 135 , 32 , 241-, 135 



250 DATA 32,241,135,32,241,135,32, 
241, 135,32,241, 135, 160,0,32,241 
260 DATA 135,48,251,153,0,2,200,20 
1,0, 20B , 243 , 32 , 204 , 255 , 32 , 120 
270 DATA 136,169,0,160,2,32,30,171 

, 32 , IB , 130 , 32 , 204 , 255 , 32 , 131 

280 DATA 136,32,225,255,240,140,16 

0,0,76,61, 136, 173, 175,2,208,1 

290 DATA 96,162,200,76,201,255,162 

,2,76, 198,255, 162 , 0 , 142 , 175 , 2 

300 DATA 32,201,255,169,200,32,195 

,255,96,32, 136, 136, 108,2,3 

310 DATA 169,200, 141 , 175,2, 162 

311 REH *»*»»»»***•»•«•»*•*«**»»»» 
»»** 

312 REfl THIS IS THE DEUICE NUffBER 
FDR 

313 REn THE PRINTER 

314 REn *** 

315 DATA 4 

316 REH **« 

317 REn CHAN6E TO UIHATEUER YOU NEE 
□ 

318 REn •«***»«»*»*»•**•»»»»*»»«*» 
**** 

319 DATA 160, 1,32, 1B6, 255, 169,0,32 
, 189,255 

320 DATA 169,4,141,147,2,32,192,25 
5 , 162 , 200 , 32 , 201 , 255 , 10B , 2 , 3 

330 DATA 32,136,136,169,36,133,251 
, 169 , 48 , 133 , 252 , 169 , 2 , 162 , 251 , 160 
340 DATA 0,32,189,255,169,1,162,9, 

160 , 0 , 32 , 186 , 255 , 32 , 192 , 255 
350 DATA 144,10,72,165,184,32,195, 
255, 104,76,9, 133, 160 , 3 , 132 , 183 
360 DATA 166,184,32,198,255,32,207 

, 255 , 133 , 87 , 32 , 1B3 , 255 , 20B , 105 , 32 
370 DATA 207,255,133,88,32,183,255 

, 20B , 95 , 164 , 1B3 , 136 , 20B , 224 , 132 , 18 
3 

380 DATA 32,207,255,72,32, 1B3, 255, 

170 , 104 , 224 , 0 , 20B , 75 , 164 , 183 , 192 

390 DATA 80,176,69,153,0,2,170,240 

, 4 , 230 , 183 , 20B , 227 , 162 , 0 , 32 

400 DATA 199,255,166,87,165,88,32, 

205 , 189 , 169 , 32 , 32 , 210 , 255 , 160 , 0 

410 DATA 185,0,2,240,6,32,210,255, 

200,208,245,32, IB, 130, 162,0 

420 DATA 32,198,255,32,225,255,240 

, 16 , 32 , 228 , 255 , 201 , 32 , 20B , 5 , 32 
430 DATA 228,255,240,251,160,2,208 

, 164 , 162 , 0 , 32 , 198 , 255 , 165 , 184 , 32 
440 DATA 195,255,76,9,133 




Monitor Part 3 




Monitor Part 4 



444 REn 



445 REn ENTRY POINT/MAIN LOOP 

446 REN **»*»•»*»»*•»••*••»»»»«**» 
*•« 

449 DATA 169,150,162,137,141,22,3, 
142,23,3,169 

450 DATA 198,162,132,141,0,3,142,1 
,3, 169,219, 162, 137, 141 ,2,3 

460 DATA 142,3,3,234,234,234,76, IB 
B, 137, 104, 141 , 172,2, 104, 141, 171 
470 DATA 2,104,141,170,2,104,141,1 
69,2, 104, 105,255, 141 , 167,2, 104 
4B0 DATA 105,255, 141, 16B.2, 169, 28, 
160,131,32,30,171,76, 114,137,32 
490 DATA 182,132,169,1,141,174,2,1 
69, 130, 162,0, 134,51, 134,55, 133 
500 DATA 52,133,56,169,206,160,130 
,32,30, 171, 1B6, 142, 173,2,32, 182 
510 DATA 132,169,0,133,157,32,35,1 
35, 169, 62, 32, 210, 255, 174, 173,2 
520 DATA 154,32,96,165,134,122,132 
, 123 , 32 , 1 15 , 0 , 201 , 62 , 240 , 249 , 201 
530 DATA 0,240,219,166,122,134,93. 
160,0, 132,2, 185,42, 130,201,255 
540 DATA 240,65,201,0,240,25,221,0 
, 2 , 208 , 4 , 232 , 200 , 20B , 236 , 1 85 
550 DATA 42,130,240,3,200,208,248, 
200, 166, 122,230,2,76,8, 138, 1B9 
560 DATA 0,2,32, 19, 177, 144,6, 1B5, 4 
2, 130,76, 19, 138, 165,2,10 
570 DATA 134,122,170,189,152,130,1 
33,20, 1B9, 153, 130, 133,21,32, 18, 135 
5B0 DATA 108,20,0,165,93,133,122,1 
69,2,133, 123,32, IB, 135,32,33 
590 DATA 130,32,122,135,24,169,0,3 
5 , 213 , 255 , 176 , 6 , 32 , 35 , 135 , 76 
600 DATA 0,144,162,4,108,0,3 
1000 FOR 5-34493 TO 35443 
1010 READ A : PDKES , A 
1020 NEXT 

1030 PRINT'TINISHED" 




5 REfl *»*»*»»»*«*»»»••*«•••»»»*»»» 
**• 

6 REM EDITOR SUBROUTINES 1 

7 REH *»*»**•»..*«••*.«»«••••***•» 

• mm 

10 DATA 162,10,160,4,189,0,2,232,2 

00 , 153 , 251 , 1 , 1B5 , 251 , 1 , 20B 

20 DATA 243, 153, 253, 1.19B, 123,169, 

255, 133, 122,96, 120, 169, 116, 162, 138 

30 DATA 141,4,3,142,5,3,169,240,16 

2, 13B, 141,2,3, 142,3,3 

40 DATA 169,255,133,129,169,104,16 

2, 140,141,20,3, 142,21,3, 169,218 

50 DATA 162,141,141,0,3,142,1,3,88 

,96, 120, 169, 124, 162, 165, 141 

60 DATA 4,3,142,5,3,169,32,133,129 

,169,219,162,137,141,2,3 

70 DATA 142,3,3,169,49,162,234,141 

,20,3, 142,21,3, 169, 19B, 162 

80 DATA 132, 141,0,3, 142, 1,3, BB, 96 
84 REH »*•*»**•**«**»«**»»***».*«» 
**** 

B5 REn »* EDITDR nAIN LDQP 

B6 REn *»•*»•»**»»»***»»•«»**»«».* 

• *** 

89 DATA 108,2,3,32,35,135,32 

90 DATA 19,135,32,96,165,134,122,1 
32, 123,32, 115,0, 170,240,237, 162 
100 DATA 255,134,58,144,68,201,42, 
208 , 3 , 76 , 252 , 139 , 201 , 76 , 20B , 3 

110 DATft 76,88,141,201,82,208,3,76 

,241, 140, 201, 73, 20B, 6, 32, 190 

120 DATA 13B, 76, 91, 139,201,68,208, 

3,76, 166 , 140 , 201 , 83 , 208 , 6 , 32 

130 DATA 80,140,108,2,3,201,77,208 

, 3 , 76 , 178 , 141 , 201 , 65 , 208 , 6 

140 DATA 32.22B, 141.10B, 2,3,108,0, 

3,32, 107, 169,32, 121,0, 20B 

150 DATA 3,76,230,140,76,159,164,3 

2,136,136,169,73,160,131,32,30 

160 DATA 171,32,80,140,169,0,141,1 

74,2, 169, 152, 160, 131 ,32,30, 171 

170 DATA 32,96,165,134,122,132,123 

,32, 115,0, 170,208, 3, 76, 109, 139 

180 DATA 160,0,185,170,131,153,176 

, 2 , 200 , 20 1 , 255 , 208 , 245 , 32 , 33 , 1 30 

190 DATA 165,183,201,20,144,5,162, 

23, 108,0,3, 160,0, 162,3, 177 

200 DATA 187,153,180,2,200,232,196 

, 183, 144,245, 142, 176,2, 169, 180, 160 

210 DATA 2,133,187,132,188,202,202 

,202,134,183,32,122,135,32,143,138 

220 DATA 169,0,32,213,255,144,13,3 

2,18,130, 169.5B, 160, 131,32,30 
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E 



230 DATA 171,76,101,135,32,18,130, 

32,228, 133,32,99, 166,108, 2, 3 

240 DATA 169,255,160,1,145,43,32,5 

1,165,165,34,24,216,105,2,133 

250 DATA 45,165,35,105,0,133,46,96 

, 160,1, 177,43, 20B, 3,76, 66 

260 DATA 140,33,228,139,32,115,0,2 

40 , 13 , 201 , 33 , 240 , 49 , 32 , 33 , 130 

270 DATA 32,122,135,76,39,140,32,1 

22,135,173,176,2,162,177,160,2 

290 DATA 32,189,255,166,45,164,46, 

169,43,32,216,255, 144,3,76,210 

290 DATA 135,32,183,255,240,3,76,2 
10,135 

291 REM *«»»•*»»»*•**»»**•*»*«*** 
»** 

292 REN TO REP1DUE AUTO-UALIDATE , R 
EPLACE LINE 295 UIITH THIS 

293 REM 295 DATA 234,234,234,234,2 

34 

294 REM •«»»»«••*»*»*»•»•»»*«*•** 
*♦* 

295 DATA 169 , B6 , 32 , 79 , 135 

296 REN •*•••#••••**••••**•*•****• 
*•*• 

300 DATA 32,190,138,169,1,141,174, 
2,32, 18, 130,76, 114, 137 

304 REN ••»***•»*•»***»**»*♦**»*** 
♦ »»» 

305 REN *• EDITOR SUBROUTINES 2 

306 REN ••*••*•••••••**•••••*••••* 

*»** 

310 DATA 169,0,168,145,43,200,145, 

43,165,43,24,105,2,133,45,165,44,1 

05,0,133 

320 DATA 46,76,99,166,165,197,201, 

64 , 20B , 3 , 76 , 49 , 234 , 201 , 4 , 208 

330 DATA 249,165, 19B,20B, 245, 56, 32 

, 240 , 255 , 152 , 56 , 233 , 10 , 176 , 252 , 73 
340 DATA 255,105,1,170,232,160,0,2 
02 , 240 , 9 , 169 , 29 , 153 , 119 , 2 , 200 
350 DATA 76,139,140,132,198,162,96 

, 160 , 255 , 1 36 , 208 , 253 , 202 , 208 , 24B , 7 
6 

360 DATA 49,234,32,115,0,32,21,130 
, 32 , 19 , 166 , 144 , 61 , 165 , 95 , 72 
370 DATA 165,96,72,169,45,32,255,1 
74 , 32 , 21 , 130 , 32 , 19 , 166 , 144 , 42 
3B0 DATA 160,1,177,95,170,136,177, 
95 , 168 , 104 , 133 , 96 , 104 , 133 , 95 , 152 
390 DATA 160,0,145,95,200,138,145, 
95 , 200 , 177 , 95 , 133 , 20 , 200 , 1 77 , 95 
400 DATA 133,21,169,0,141,0,2,76,1 
64 , 164 , 76 , 227 , 168 , 32 , 247 , 140 



410 DATA 108,2,3,32,115,0,240,20,3 

2,21, 130, 165,20, 133,251, 165 

420 DATA 21,133,252,32,253,174,32, 

21, 130,76,28, 141, 169, 10, 162,0 

430 DATA 133,251,133,20,134,252,13 

4,21,165,43,166,44,133,253,134,254 

440 DATA 160,1,177,253,208,4,32,18 

, 130,96, 160,3, 165,252, 145,253 

450 DATA 136,165,251,145,253,136,1 

77 , 253 , 170 , 136 , 177 , 253 , 133 , 253 , 134 

,254 

460 DATA 165,251,24,101,20,133,251 

, 165,252, 101,21, 133, 252, BO, 209, 162 

470 DATA 15,108,0,3,32,115,0,240,9 

,32,21, 130,32, 19, 166,76 

480 DATA 110,141,165,43,166,44,133 

,95,134,96,160,1,177,95,208,6 

490 DATA 32, 18, 130, 10B.2, 3, 160,2,1 

77,95,170,200,177,95,32,205 

500 DATA 189,56,32,240,255,160,10, 

24 , 32 , 240 , 255 , 160 , 4 , 177 , 95 , 240 

510 DATA 6,32,210,255,200,208,246, 

32, IB, 130, 160, 1, 177,95, 170, 136 

520 DATA 177,95,133,95,134,96,32,2 

25,255,240,197,76,110,141,32, 115 

530 DATA 0,32,33,130,169,1,162,8,1 

60 , 0 , 32 , 186 , 255 , 165 , 45 , 56 

540 DATA 233,2,170,165,46,233,0,16 

B, 169,0,24,32,213,255, 176,3 

550 DATA 76,216,139,108,0,3,169,84 

, 160, 131,32,30, 171, 10B, 2, 3 

560 DATA 32,115,0,208,13,169,10,16 

2 , 0 , 133 , 251 , 134 , 252 , 133 , 253 , 76 

570 DATA 11,142,32,21,130,32,253,1 

74,165,20, 133,251, 165,21, 133,252 

5B0 DATA 32,21,130,165,20,133,253, 

169,21, 162, 142, 141 , 2 , 3 , 142 , 3 

590 DATA 3,173,0,2,240,46,166,251, 

165, 252, 32, B5, 142, 169, 11, 133 

600 DATA 19B, 160,0, 169,29, 153, 119, 

2,200, 192, 11, 144,246, 1B9, 0,2 

610 DATA 157,119,2,202,16,247,24,1 

65,251,101,253,133,251,144,2,230 

620 DATA 252,76,240,139,169,240,16 

2,138,141,2,3,142,3,3,109,2 

630 DATA 3, 134,99, 133, 9B, 162, 144,5 

6,32,73,188,32,223,189,32,135 

640 DATA 180,32, 166, 1B2, 162,0, 189, 

0,1, 157 ,0,2, 240 , 3 , 232 , 20B 

650 DATA 245,96 

1000 FOR S-35444T036469 

1010 READA: POKES , A 

1020 NEXT 

1030 PR INT "FINISHED" 




THE 64 SOFTWARE CENTRE 
1 Princeton Street, London WC1R 4AL 

01-430 0954 



SOFTWARE PRICE LIST — Prices include VAT 

d = disk c = cassette r - cartridge 



Accounting systems (Office use) 

Anagram Systems — Sales Ledger d £75.00 

Anagram Systems — Purchase/Nominal Ledger d £75.00 

Anagram Systems — Cashbook d £75.00 

Gemini — Cashbook (with nominal analysis! d £64.95 

Gemini — Cashbook (with nominal analysis* c £59.95 

Gemini — Final Accounts d £64.95 

Gemini — Final Accounts c £59.95 

Gemini — Cashbook/VAT/Final Accounts c £89.95 

Gemini — Cashbook/VAT/Final Accounts d £99.95 

Ramtop — Accounts Package d £75.00 

Studio — Payroll 64 d £49.95 

Dell — Invoice Generator II d £24.95 

Stock Control systems 

Practicorp — lnventory64 d £29.95 

Gemini — Stock Control d £24.95 

Gemini — Stock Control c £19.95 

Anagram — Stock Control d £75.00 

Home applications 

Gemini — Home Accounts c £19.95 

Gemini — HomeAccounts d £24.95 

Gemini — Combined Home Pack d £39.95 

Gemini — Combined Home Pack c £34.95 

Fieldmaster — Homeaccounts dorc £19.95 

Adamsoft — Checkbook Manager d £14.95 

Database Filing Systems 

Handic — Diary 64 r £19.95 

Fieldmaster — Mail label d £29.95 

Bl — The Consultant d £125.00 

Practicorp — Practifile64 d £44.50 

Precision — Superbase 64 d £87.00 

Precision — Superbase Starter d £39.95 

Gemini — Database d £24.95 

Gemini — Database c £19.95 

Gemini — Mailist d £24.95 

Gemini — Mailist - c £19.95 

Fieldmaster— Record Card d or c £19.95 

Dell — Superfile d £14.95 

Practicorp— Practicalc64 d £44.50 

Practicorp— Practicalc II d £69.95 

Supersoft— Busicald dorc £17.95 

Supersoft — Busicalc3 d £49.95 

Fieldmaster— Worksheet d,f ore £19.95 

Spreadsheets 

Handic — Easy Calcresult r £49.95 

Handic — Advanced Calcresult r * d £90.00 

Word Processors 

B.I. — Paperclip 64 d £90.00 

Simple — Simply Write d £46.00 

Simple— Simply Write c £40.25 

Hesware — Heswriter r £42.95 

Fieldmaster — Pagewriter dorc £29.95 

Bank Street Writer d £69.00 

Precision — Superscript d £69.95 

DTL - Wordcraft 40 r £69.95 

Utilities 

Adamsoft— Ultrabasic d £19.95 

Adamsoft — Cadpack 64 d £35 00 

Adamsoft — Chartpak 64 d £24.95 

Adamsoft — Superdisk d £12.50 

Adamsoft — Graphics Designer d £19.95 

Audiogenic — Forth 64 r £29.95 

Blitz compiler d £50.00 

Fieldmaster — Poster printer c £19.95 

Handic — Mon 64 r £34.95 

Hesware — Forth 64 r £59. 95 

Commodore — SimonsBasic r £47.50 

Kuma — BC Basic r £57.50 

Practicorp— 64 Doctor d £19.95 

Supersoft — Masler64 d £71.30 

Supersoft — Victree r £56.35 



Supersoft — Mikro Assembler r £59.80 

Supersoft — Zoom monitor d £14.95 

Supersoft — Toolkit 64 c £9.95 

Supersoft— Toolkit 64 d £1 1 .95 

Aztec — Turbo extended basic c £14.95 

Activision — The Designer's Pencil c £1 1 .99 

Jetpack compiler d £39.95 

Jetpack compiler c £14.95 

FP— Pascal64 d £34.95 

Oasis — Basic Lightning c £14.95 

Oasis — Basic Lightning d £19.95 

Oasis — White Lightning c £19.95 

Oasis— White Lightning d £29.95 

Oasis — Machine Lightning c £29.95 

Oasis — Machine Lightning d £39.95 

Talent — Panorama c £17.95 

Talent— Panorama d £19.95 

Skyles— 1541 Flashkit r £89.95 

Epyx — Fast load r £49.95 

Reston — Moviemaker d £65.00 

Access — Mach 5 fast loaders r or d £39 95 

Orpheus Pascal c £24.95 

Broderbund — ThePrintshop d £44.95 

Broderbund — Printshop graphics designer d £29.95 



Simulations 
Flight simulators 

Microprose — Solo Flight cord £14.95 

Sublogic — Flight Simulator II d £49.95 

Sublogic — Flight Simulator II c £42.95 

Supersoft — Interdictor Pilot d £19.95 

Supersoft — Interdictor Pilot c £1 7.95 

Activision — Space Shuttle c £1 1 .99 

Cosmi — Super Huey (helicopter) c £1 1 .95 



War 

SSI — Cosmic Balance d £44 95 

SSI — Germany 1985 cord £59.95 

SSI — Operation Market Garden d £64.95 

SSI — Battle for Normandy c or d £14.95 

SSI — Geopolitique d £44 95 

SSI — Breakthrough in the Ardennes d £65.00 

SSI — Baltic85 d £44.95 

SSI — Broadsides d £44.95 

SSI - Field of Fire d £44 95 



ALL IN STOCK NOW — Callers welcome 
(10am - 6pm including Saturdays) 

Mail Order: Cheque or PO — add £2 for items over £20, others free. 
Credit cards (Access/Visa): phone or write. Immediate despatch 



The 64 Software Centre, 
1 Princeton Street, London WC1 

Please supply the following items: 

1 Qty.... (S) £ 

2 Qty....@£ 

3 Qty....@£ 

4 Qty.... @ £ 

TOTAL £ 

POSTAGE C 

I 1 L * 

Name 

Visa/Access Card No 

Address 

Date Signature 




lis month Joe Nicholson 
continues our C-16 series 
tion of 



■ PROGRAMMING 

THE C16 



Programmable characters 



IT IS POSSIBLE TO USE CUSTOM DES- 
igned character sets on the C-16, even 
though Basic 3.5 does not have supporting 
commands. 

To understand how this is done, one 
must first examine how the normal 
character set is stored. Data for the 
character shapes is stored in the ROM 
from address $D000 to address $D7FF 
(53258 to 55295). Locations $D000 to $D3FF 
(53248 to 54271) hold the data for 
character set 1 (upper case letters and 
graphics). Locations $D400 to $d7FF (54272 
to 55295) hold the data for character set 2 
(upper and lower case letters). Each of 
the two character sets takes up 1K of 
memory. Characters with screen codes 
between 128 and 255 are reversed images 
of codes 0 to 127 and are therefore not 
stored in memory. 

The characters are stored in the order 
shown in the screen display codes in 
Appendix E of the C-76 User Manual. For 
set 1, the first character is therefore '@'. 
This is stored in eight bytes, one byte per 
pixel line (eight dots) of the screen 
display. Each byte of the character '@' 
contains the eight bits needed for each 
row of the character, stored in binary- 
form (one for on, nought for off). The left- 
most bit of the row is the '128' bit, the 
second to the left is Ithe '64' bit and so on 
to the T bit on the far right. 
The @ ' sign is therefore stored as shown 
in Figure 1. 

For a character set to be created in 
RAM, space must first be made available 
in which to put the character set. 
Assuming the high-resolution screen will 
not be used in conjunction with 
programmable characters, the top 1K of 
RAM (15360-16383) is the most 
convenient. This is done by moving the 
'Highest address used by Basic' pointer 
(55-56) and the 'Bottom of string storage' 
pointer (51-52) down IK from the top of 
RAM (see last month's article: The 
Memory map and where to store machine 
code). Type: 



character sets down into the IK block. 
This can be done easily by entering the 
MONITOR and typing: 

T DO00 D3FF 3C00 — for set 1, or: 
T D400 D7FF 3C00 — for set 2. 

Then enter 'X' to leave the Monitor. 

To move the character set down inside 
a Basic program is more difficult. A FOR- 
NEXT loop takes over 15 seconds, so I've 
written a short machine code routine 
which does the task almost instantly. The 
program is completely relocatable, i.e. it 
will work wherever it is stored in memory. 
The Start, End and Length values may be 
altered as desired for different 
applications. Figure 2 shows an assembler 
listing of the routine using the C-16 



Assembler published in the June edition 
of Your Commodore. It is positioned in a 
free space below Basic at $600 hex, 1536 
decimal (see last month: Where to store 
machine code). To execute the routine 
from Basic, type: SYS 1536. 

To make your character set the current 
one, you must first disable the 
Shift+Commodore Key with PRINT 
CHR$(8), and then set the 'Character data 
base address' pointer (at 65299) as desired. 
Bits two to seven of this pointer are the 
upper six bits of the high byte of the 
character set address. This enables the 
character set to start at any multiple of 1K. 
We are using the fifteenth K (15360 to 
16383), so the number entered is 60 (15-4) 
decimal. 

To specify that the character set will be 



E 



POKE 56,59:POKE 52,59:CLR 

As 'CLR' is used this should be done at the 
beginning of the program. 

Assuming you don't want to redefine 
all 128 characters of the new character set, 
you need first to move one of the ROM 



START: 
10010 
10015 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
>> OK. 

Figure 1. 



10000 ; SHIFT MEMORY 
ORG 4600 

* 

; START READING FR0P1 
LDA a0 
STA *D0 
LDA 

STA $D1 

* 

; START WRITING TO 
LDA «0 
STA $02 
LDA «3C 
STA $03 

* 

; NUMBER OF BLOCKS TO 
; BE I10UED C4 FOR IK D 
LDX »4 

; PERFORM M0UE 
:L1 LDY o0 

LDA CSD05.Y 
C$D2D.Y 



:L2 
STA 
I NY 
BNE 
INC 
INC 
DEX 
BNE 
RTS 



R:L2 

$01 

$03 

R: LI 



Address 
hex 

$DO00 
$CK)01 
$D002 
SD003 
$D004 
$0005 
SD006 
$D007 

Figure 2. 



Hex Binary Image 



$3C 

$66 

$6E 

$6E 

$60 

$62 

$3C 

$00 



00111100 
01100110 
01101110 
01101110 
01100000 
01100010 
00111100 
00000000 



•*** 
*• •* 
• • •-• 

** *** 

** 

»• • 



Shift memory routine 



Programming 



accessed from RAM as opposed to ROM, (he following POKEs should be entered: This means that editing should always be 

POKE 65299, 208 
POKE 65298.PEEK (65298) OR 4 

Whenever an Error is encountered, 
the ROM/RAM select bit is reset back to 
ROM, creating havoc on the screen if the 
to specify "character set in RAM'. To get 'Character data base address' pointer is 
back to t he normal ROM character set, not pointing to the ROM character set. 



is important that the other bits at that 
address should remain unchanged, a line 
like this should be used: 

POKE 65298.PEEK (65298) AND 251 



10 REM PROGRAMMABLE GRAPHICS DEMO 

100 P0KE56.59:P0KE52,59:CLR 

110 FORA=1536TO15?0: READS: POKEA ,B: NEXT: S 

YS1536 

150 DATA169,0.133,208. 169.208, 133,209,16 
9.0,133,210 

160 DATA169, 60, 133,21 1 .162,4.160,0,177,2 
08,145.210 

1 70 DATA200 . 208 . 249 . 230 , 209 , 230 . 2 1 1 . 202 , 
208,240,96 

200 RESTORE10000:FORA=0TO79:READB:POKE15 
360+A,B:NEXT 

210 PRINTCHR$C8 D: P0KE65299 ,60: P0KE65298 , 
PEEKC65298)AND251 
220 TRAP250:GOTO1000 
250 PRINTERR4CER } ,EL 

260 P0KE65299 ,208: P0KE65298 .PEEKC65298 DO 
R4: END 

1000 COLOR0 , 1 : C0L0R4 , 1 : C0L0R1 ,8 ,6: SCNCLR 

1010 PRINT-FFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFF" ; 

1020 F0RA = lT022:PRINT"F , 'TABC39rF"; : NEXT 
1030 PRINT"FFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFFF" 

1040 C0L0R1 ,2.6:CHAR, 18.21 ,"GHI" 
1050 C0L0R1 ,2,4:CHAR,0,24." 0015423 

0000000" 

1100 FORB = 3T012:FORA = 1T06:COLOR1 ,A+1 ,4 
1110 CHAR,B,CAx3D-l OAB OAB OAB OAB 
OAB " 

1120 CHAR.B.CAX3D." CDE CDE CDE CDE 
CDE" 
1 130 
1200 
+ 1 ,4 
1210 
OAB 
1220 
DE " 
1230 
1240 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
5 

10070 
10080 
10090 

Figure 3. Programmable graphics demo 



FORC=1TO100: NEXT: NEXT: NEXT 
F0RB=12T03STEP-l:FORA=lTO6:COL0Rl ,A 



CHAR ,B , CA*3 3-1 ,"OAB 
CHAR ,B , C A*3 } , "CDE 



OAB CAB OAB 

- 

CDE CDE CDE ( 



FORC=1TO100: NEXT: NEXT: NEXT 
G0T01 100 

DATA32,96,192,159.191 ,255,255.253 
DATA0. 0,0, 195.231 ,231 ,255,61 
DAT A4. 6, 3. 249, 253, 255. 255, 63 
DATA253 .252 ,255 ,255 ,121 .63.1 ,1 
DATA 189. 24, 255. 60. 231 .255,195.195 
DATA 191 .63.255.255. 158.252.128.128 
DATA255.128.191 .161 .165.189.129,25 

DATA0.0.0.3.15.31 .63.255 

DATA24 . 24 . 1 26 , 255 , 255 . 255 . 255 . 255 

DATA0. 0,0, 192, 240, 248, 252, 255 



done in normal (ROM) character mode. 

Also, it is a good idea to put the 'get 
back to the normal character set' 
commands as the destination of a TRAP 
command to stop this happening (see 
page 141 of the User Manual). Remember, 
however, that the TRAP command must 
come after the CLR command used when 
lowering the top of RAM. 



Entering programmable 
characters 

The address of the character in RAM can 
be found as follows: 

Address = Base address + (screen code * 8) 

The eight bytes for each character can be 
read into memory by a simple FOR-NEXT 
loop, with the numbers stored in DATA 
statements. Figure 3 is a demonstration 
program to illustrate the points covered in 
this article. The program functions as 
follows: 

LINE 100 shifts the top of memory down 
1K for the new character set. 
LINE 110 POKEs into memory the machine 
code routine SHIFT-MEM held in the 
DATA statements in line 150-170. It then 
calls this routine. The routine shifts the 
ROM upper case character set down into 
the new RAM area. 

LINE 200 READs in the Programmable 
character data stored in lines 10000-10090 
into the start of the new character set (first 
character to be defined is '@', then 'A', 
then 'BN' etc.). 

LINE 210 - -PRINT CHR$(8f - disables the 
ability to change character sets with the 
Shift+Commodore Key. As only one 
character set has been redefined, this 
disables the ability to change to a garbage 
character set. 

LINE 220 turns on TRAP mode to Line 250 
and jumps to the Demonstration (Line 
1000). 

LINE 250-260 The TRAP routine. 
LINE 250 prints the error and the line 
number on which the error occurred. 
LINE 260 first changes the BASE address to 
point to the ROM character set, then 
selects 'character set to be taken from 
ROM', then ENDS. 

LINE 1000 defines the colours and clears 
the screen. 

LINEs 1010-1030 print the border. 
LINE 1040 prints your base. 
LINE 1050 prints the scores. 
LINEs 1100-1130 move aliens right. 
LINEs 1200-1230 move aliens right. 
LINE 1240 performs this spectacular feat of 
imagination all over again. 
LINEs 10000-10090 the programmable 
characters. 

LINEs 10000-10050 the six programmable 
characters needed for the alien. 
LINE 10060 the border character. 
LINE 10070-10090 the base. 



E 



Listings will be much easier to 




COMMODORE LISTINGS ARE RATHER 
well known for the horrible little black 
blobs that always abound. Unfortunately 
the graphics characters which are used to 
represent graphic and control characters 
do not reproduce very well and they are 
also difficult to find on the Commodore 
keyboard. 

For this reason Your Commodore 
started to precede any control characters 
with a REM statement on the previous line 
that explained exactly what the black 
blobs were meant to be. Unfortunately 
the graphics characters were not 
documented and these still cause some 
confusion. For this reason we are starting 
to use a new method for marking the 
control and graphic characters in our 
listings. 

In future all control and graphics 
commands will be replaced by mnemonic 
within square brackets. This mnemonic is 
not typed out as printed in the magazine 
but rather the corresponding key or keys 
on the keyboard are pressed. For example 
|RICHT| means press the cursor right key, 
you do not type in [RIGHT]. All of the 
keywords, what keys to press and how 
they are shown on the screen are shown 
below. 




LISTINGS 



Any character that is accessed by pressing 
shift and letter will be printed as [s 
LETTER) 

[ 5 a] shift and A 

(s C] sn 'f* & C 

Any character that is accessed by pressing 
the Commodore key and a letter will be 

printed as [c LETTER] 

[ c a| Commodore & A 

[ c C] Commodore & C 



[ c i] Commodore & 1 

Any control key will be printed out as a 
number. For example [001]. Control 
codes are accessed by pressing the CTRL 
and a letter at the same time [001] is CTRL 
& A, 002 is CTRL & B etc. See the manual 
for more information about control 
codes. 

[001] CTRL & A 

[026] CTRL & Z 



Mnemonic Symbol what to press 



[RIGHT] 

[LEFT) 

[UP| 

IDOWNJ 

W) 
[F2] 

[F3] 
M 

I 




Mnemonic Symbol what to press 



»• 

■ ■ 

■ ■ 


■ 
• 
■ 
■ 

■ ■ 


■■1 
1 * 

■ ■ 

■ ■ 

■ • 
■■! 

■ ■■■ 






■ ■■■ 


■ ■■■ 




■■■■ 



■ 



left/right 



ihlft left/right 



Shift & up 
/down 



up/down 



f1 



shift & f1 



f3 




shift & f 







F5] 

F6J 

F7J 

[FBI . 

[CLEAR] 

[HOME! 

[RVSON] 

[RVSOFF] 







(5 



shift & f5 



f7 



shift & f7 

shift & CLR 
/HOME 



CLR/HOME 



CTRL & 9 



CTRL & 



Mnemonic Symbol what to press 




BLACK] 

WHITE] 

RED] 

CYAN] 

PURPLE] 

GREEN] 

[BLUE] 

[YELLOW] 








CTRL & 1 



CTRL & 2 



CTRL & 3 



CTRL & 4 



CTRL & 5 



CTRL & 6 



CTRL & 7 



CTRL & a 



u b missions 




YOUR BEST INDEPENDENT COMMODORE MAGAZINE 



SO YOU OWN A COMMODORE? 



ISO YOU'VE WRITTEN SOME PROGRAMS? 




BMITTED THEM TO US? I 



Your Commodore is always on the lookout for new 
material for publication and we know that there are 
thousands of intelligent, literate, innovative and 
creative Commodore owners out there, so why don't 
we get together? 

If you have written an exhilirating game or an 
invaluable utility on your Commodore micro, share 
your talents with us and our readers by submitting 
your efforts and the form to the address below. An 
articles should be documented and type-written and 
should be accompanied by a printout of the program 
as well as a copy of the program on cassette or disc. All 



publication, it will be returned to you. 

You may not have written any software yourself, 
but you have very firm opinions about the world of 
Commodore and all their attendant industries 
and products. Then put your opinions on paper and 
post them to us, again at the address below — you 
never know, you might even get paid for airing your 
views! All submissions should be sent to: 
The Editor 
Your Commodore 
Argus Specialist Publications Limited 





★PLEASE COMPLETE IN BLOCK CAPITALS 



n 



Your Name 



Program Name 



Computer/memory size il runs on 



Amount of memory program occupies 



Other computers/memory size which your program 
runs on without conversion or use 



Does your game need or use joysticks? 



Yes 



No 



Have you sent your game to another magazine 



Yes 



No 



Is it original/or a variation on a theme? 



Your Address 



Telephone Number 
Times to contact you 



Evesham! 
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If you ro as 
^mp^o^sed 



with the now 

12». youl be 
©ven mwe 
Impresaed wfln Ihe new eoflwwo mat's 
appoatlng (of It nowl Already weVe got 
SuparBase 131 £85.00!). 
Superscript 128 ftJ**S 1*9951). 
and tm amazing WiaWrlle CIjiHc 128 
K|MS £89.00!)... so watch this space' 



AllhougM we are by far 
the largest UK reUller 
of SuperBase. VaaStar 
and VizaWriie lor the 
Commodore 64. lor 
over Ave years wo 
have supported 
the best software lor 
all the Commodore business machines! 
So II you have a CBM PET 3000. 4000, 
8000, 700 or PC. thon donl forget us.. . 
we haven! lorgonon you! Why not phone 
or wine lor our CBM.'PET catalogue? 




AH the features youtl ever need l« professional 
word processing, ... and thon more! Unrivaled 
, 240-COlumn loxi han*ng. variable width 
screen, word-wrap, cut -and- pasts, four-way 
scroaing. dbcumont Inking lor unlimited capacity, 
global eearch-and-replace. help screen, lull memory calculator, 
row and column arithmetic, menu or keyed commands wllh command suing* 
background printing, corrploie letter quality print control spelling checker with 
bothUKsndUS disk dictionaries, comprehensive lour part user manual... 

ALL FOR ONLY £^95- £61.95! 



^cBOOKS 

The Anatomy of A Commodore 64 £6.95 

Tho Anatomy ol the 1541 Disk Drive £895 

Your -64 Cassette Book £895 

Tiicks and Tips for your "64 £695 

Machine Language Book lor the '64 £895 

•64 Advanced Machine Language £895 

Peeks and Pokes lor the '64 £795 

Commodore 64 Idea Book £895 

Graphics Book for your "64 £895 



Are you a two- 
finger typist? 
Then why not kM 
SuperType help 
you learn to touch- 
type the last and easy way... with your 
computer as i ho loacher! AB the family can 
team this useful skill, althoir own pace... 
and co' t from the very latest computer- 
aided training a^S feedback techniques! 
For onry £!**?* £t7.9S on tape, or 

ON DISK ££5*5 £22.95! 



Transform your Commodore 64 into a tul 
featured prolesslonal database system, 
wnh up to 1000 characters per record on 
up to tour screens and up to 128 Hems 
per record, definable as key. te«t, numeric, 
result or date In Use of up to 16 rmfton 
characters! SuperBase 64 even has calculator and calendar functions, easy Input 
from word processor or dsta files, both menu-driven and program control, sorting 
and searchlnq fuiy definable report and screen formats... Superbase 64 is essential 
Hyouwamtho most from your 64- Supplied on 1541 disk with wceftent tutorial 
and reference manual, plus audio learning tape... 

NOW ONLY £Z*93 £69.95! 



rj/ i tj. 



Your programs 
will really 

i mi e*<-*i.-->r taka off with 
/^'■•P^SSS - ■ JetPack 641 

* 100% compatiDte 

with CBM Basic, Jetpack compies 
Basic programs into machine code. 

running up to 25 limes faster... 
using up to half as much memory! 
And W even accepts Basic extensions 
and machine code routines as wefl! 

OUR PRICE (DISK) £3*95 £29.95! 



<T\nD> ASSEMBLER 
* ^ MONITOR 64 

A powortul 2-pass assembler allowing 
fcoe-form Input, with 31K free lor source 
code, assembling to disk or memory... 
plus loadable symbol tables, redefinaDte 
symbols, twenty paeudo- ops, macros, 
conditional assembly and unique 16-M 
expression evaluator. The monitor has 
15 command* including bank switching! 

(ON DISK) ONLY £19.99! 



VIZASTAR 64 



Spreadsheet, 
database and 
graphics too... 

aa iniogralod 
Inio ono amsTing 

package, at an amazingly affordable price! The very latest design loch^quos combine 
theutSmatern ease-of-use with al ihe sophistica«on of a fully Integrated iprott-cK 
VliaStafs advanced features include high apeed maths tuncttons, large 1000 by 64 
worksheet. prowammMiry. windows, cc* proiecton. search and sort .10.1 ! oonng. 

OUR PRICE (XL4) £S»«r £89.001 (XL8) £12fk*S £115.95! 



VIZflWRITE 64 



A high-performance, low- cost 
wordprocessor. with lull on-screen 
formatting, that lakes lul advantage 
olthe colour, graphics and memory capacity ol tho Commodore 64 ihat worioiwWl 
boih risk and IBM— and supports vslu ally any printer! With a conose and easy- to-MOW 
user manual VtzaWrite is the ultimate personal compulor word processor! Available on 
cartridge for £*a*5- £7 8. 95. on disk to. Ctf*f £6795 or wimVliaSp ell 
a 30,000 word (ksk dictionary and speftng chockcr. lo. £9>4*-£8S.0O! 



WANT IT TOMORROW*?? CALL 


. US TODAY!!! ON 01-546-7256 


SIMON'S BASIC ££B*0- £35.95 
MASTER 64 £6>»r £3995 
JETPACK (tape) £1495 
SUPERBASE STARTER £3SrsS' £3595 
EaeyScrtpt to Superscript upgrade - 
•end dtebtand manual cover £39.93 


FIRST WORD wordprocessor 
FIRST BASE database 
POWER PLAN spreadsheet 
BASIC 64 CC^npier 
PASCAL 64 compiler 
ADA TRAINING COURSE 


£3599 
£3599 
£44.99 
£34.99 
£3499 
£4999 





Prices Include VAT and POSTAGE 
and are correct on going to press. 
Order by post or phone, using 
cheque. Access, Barclaycard or 
postal order. Despatch la by same 
day 1st CLASS post Product data 
available on requesL or phone lor 
advtce II In doubt. |REF A34) 




CO 

ware 



LAKESIDE HOUSE. KINGSTON HILL, SURREY. KT2 7QT. TEL I1-S4B-72M 



All prlrei include P«P and VAT. iend cheque. Po*ta' Order of C.edtl Card No. 
Credit Card order xicptrd by phone. Caller* welcome. Wide r*nge ol goodt 
(locked. Trade enquiries wrkomt. European orderi tend price ol advertiied. 
Oultlde Europe 12.00 lor airmail. Mail order 10 (veiham (hop please. 

EVESHAM MICROS MICRO CENTRE 

BRIDGE STREET, EVESHAM, 1 756 PEnSHORE ROAD, — 1 
WORCS.. Wni 1 4RY. COTTE RIDGE. BIRMINGHAM. 

Tel. 038641989 Tel: 021 458 4S64 1-—-J 




I Nick Hampshire. 



FULL SPEED 
AHEAD 



THE MOST TEDIOUS AND 
frustrating operation on the 
C64 is using the cassette deck to 
LOAD or SAVE a program. The 
operating system tape routines 
function OK but are so 
cumbersome and slow that the 
thought of buying a disk drive 
soon becomes a matter of very 
high priority in every user's 
mind. However, while waiting 
for your disk drive, all is not 
lost. With an ingenious piece of 
software, it is possible to speed 
up the tape routines to give a 
loading speed equal to that of a 
disk drive. 

Virtually all C64 software 
currently being marketed uses 
some form of fast loader. These 
fast loaders are given names 
like: Turbo (this was the first 
fast loader available), Pavload, 
Flash Load, etc. The origin of 
these fast loader routines is 
rather obscure since many of 
the software houses use the 
same loader routines. In this 
section we give the source 
code for two fast loaders and 
their associated SAVE routines. 
These have been used on 
several software products of 
Zifra Software Ltd. under the 
name of ZITload and 
ZIFTAload. 

A fast loader is a routine 
which replaces the existing 
LOAD and allows a program or 
data to be loaded from tape at 
about 10 times normal speed 
thus making a tape as fast as a 
disk drive. A fast loader simply 
changes the format of the pulse 
sequence stored onto the tape 
in order to allow a far greater 
density of information storage 
per inch. 

In order to create a fast 
loader two programs are 
needed. Firstly, a fast loader 
program, which is a fairly short 
machine code routine loaded 
at the beginning of a LOAD 
operation and auto run to 
LOAD the rest of the program 
and/or data stored in fast 
loader format. The second 
program is a routine to SAVE a 
program in fast loader format, 
the fast SAVE. 



The first major design 
problem to be overcome is the 
storage of each bit on the tape. 
Each bit is stored as a pulse 
which goes through a high-low 
transition {see Figure 1). The 
length of the total pulse 
decides whether the bit is a one 
- A long pulse - or a zero - a 
short pulse. The bit is flagged in 
the interrupt register on the 
falling edge of the pulse. 

The loader is a machine 
code program which runs with 
the interrupts disabled. It sets a 
timer between the two lengths, 
and when the timer runs out 
the interrupt register is 
checked to see if the pulse 
came in or not. If the falling 
edge of the pulse generates an 
interrupt before the timer runs 
out then the pulse was a zero, 
otherwise it was a one. The bits 
are then rotated into a byte 
storage until eight bits have 
been read, thereby loading a 
full byte. 

Before any bytes can be 
read and stored, the loader 
must be in sync with the bits on 
the tape. A string of zero bits 
with a single one bit at every 
byte interval achieves this. The 
routine then tries to align itself 
by recognising the value of the 
byte. 

An example of a header 
byte for aligning would be the 
value 64, hex $40 or, in binary, 
01000000. A series of these 
bytes is written as the header. 
Only when this byte has been 
read in and recognised can the 
actual program be read 
without risk of alignment 
errors. 

The program is stored in 
different ways depending on 
how much is desired. The 
simplest way of formatting the 
file is to first SAVE the two byte 
load address followed by the 
two byte end address and then 
the actual file. The final byte 
following the end of the file is a 
checksum calculated by the 
save routine and also during 
loading. If the two values are 
the same, the LOAD was 
successful. The routine for this 



form of fast loader is given in 
Program one. 

Another type of LOAD, 
which uses the same saver but 
is slower, is the interrupt 
loader. This method has the 
advantage of LOADing with 
the screen on and a foreground 
program running whilst the 
main program is loaded. 
Loaders of this type are: 
Novaload and Micro Load. The 
difference is that an interrupt is 
created when a pulse is read by 
the tape recorder, and the 
timer is checked to find out 
whether the pulse was a zero or 
a one. The whole LOAD is done 
in the background allowing a 
foreground program to play 
music, run a clock, etc. The 
foreground program must 
check at regular intervals to see 
if the loader has flagged for the 
end of load. The background 
LOAD in Program two has only 
a foreground program which is 
waiting for the end of LOAD 
flag to be set. 

Fast Tape Routines — 
Making Them Work 



Putting the theory into practice 
to create the fast loader 
routines is not difficult. The 
actual timing for the SAVE 
routine was not calculated 
from any theoretical formula 
but just by trial and error. The 
only guidelines were that the 
short pulse should be slightly 
shorter than half the long 
pulse, as the waveform of the 
pulse is evened out by the 
cassette hardware. The timing 
value used by the loader is just 
shorter than the time required 
before the long pulse reaches 
its falling edge. 

There are two program 
listings for the C64 in this 
article, one for each of the two 
types of LOAD. Each program 
will SAVE a Basic program in its 
fast format and automatically 
put the fast loader routine into 
the filename where it is stored. 
When loaded, it will 
automatically start on the warm 



start vector. The routines are 
initialised by SYS(49152). A 
Basic program can be fast saved 
by using the SAVE command as 
normal but with a device 
number of seven, thus: 

SAVE "PROGRAM",7 

In addition the first fast 
LOAD also makes use of the 
secondary address to auto run 
the program, thus: 

SAVE "PROGRAM",7,1 

will cause the program to auto 
run when loaded back. With 
both routines, when a program 
has been saved using one of 
these fast loader SAVE routines 
it is unnecessary to LOAD 
anything before the program: 
it will LOAD directly from the 
LOAD command. 

An example of how fast 
these routines can be is shown 
by the following timing table. 
This was based on the time 
taken to LOAD a 26.3K byte 
Basic program. 

Method 1 

: 1 minute 

Disk 

: 1 minute 10 seconds 
Method 2 

: 1 minute 25 seconds 
Normal tape 

: 8 minutes 40 seconds 



It should also be noted that 
the SAVE routines for the fast 
tape operation are consid- 
erably shorter than the normal 
tape routines. One wonders 
why Commodore has not 
included these types of fast 
tape routines in the new 
machines. 

By loading these into your 
C64 you will be able to take 
some of the tedium and 
frustration out of using a tape 
system. In addition it will also 
make your programs look far 
more professional. 

This article is extracted from 
one of the 64 Revealed series of 
books by Nick Hampshire and 
published by Collins. 



E 




Program Listing 1 



esx 

033C 
B33G 
033C 
033C 
033C 



i fast rare save fee the 6*. 
....,................«..•■«••. 

I THIS ROUTINE HILL SflVE fl PROGRAM 
•TO TAPE SO THAT WHEN LOADED BUCK 
•IT HILL LOUD WITH THE SCREEH OH. 



033C 


i 




COOO 

caee ami 


■-SCO08 


LDA tCSflWEC 


COO? 8D3203 




STA (0332 


COOS A9CO 




LCfl OSflWEC 


C807 033 303 




STfl <0333 


cwn 60 




RTS 


CN1 






CeOB 49 


SRWEC 


PHfl 


C86C Wlfl 




LDA <BA 


COOE C907 




CMP M07 
BEQ TSAVE 


C0IO FC04 




C0I2 68 




PLfl 


C0I3 4CEDF5 


1 

TSAVE 


JMP (F3E3 


C0I6 

CO 16 A00E 


LDV M8E 


mi H A920 




LDfl ((29 


C910 9999C1 LOOPl 


STfl FLHAHE»1.V 


CfllD 88 




DEV 


C81E DOFA 




BHE LOOP I 


C02O A4S7 




LOV (87 


C822 COeF 




CPY IW* 


C824 9002 




BCC LO0P2 


C026 AOC£ 




u>v ■««£ 


C023 88 


LOOK 


DEV 


CB29 3886 




8MI TSftVEI 


C02S BIBB 




LDfl <f8I>.V 


CP2D 999ACI 




STfl FLNHME-2.V 


C033 4C28C9 




JMP L00P2 


C033 






C833 A058 


TSAVE1 


LDV MS0 


C033 893FC1 


TSAVE2 


LDA LOADER. V 


C*38 99ftt02 




STfl <82AB.V 


C03B 66 




DEV 


CC3C 10F7 




BPL TSAVE2 


C83E A90I 




LDfl MO I 


CS40 AA 




TAX 


C04I A8 




TAV 


C842 20BAFF 




JSR fFFBfl 


C043 MH 




UM MFB 


C047 R298 




ldx *<ru*re 


C849 A0C1 




LDV •>fuhmE 


C04B 20BDFF 




JSR (FFID 


C04E R900 




LDfl M00 


COM 653D 




STfl «9D 


C032 A902 




LDfl M02 


C054 85FC 




STfl fFC 


C036 ■VJRS 




LDfl MAI 


C8S8 8SFB 




STfl «F1 


COW A9F3 




LDfl •<F8 


C05C A204 




LDX M04 


esse noes 




LDV • WO 


C060 20D8FF 




JSR (FFB8 


C063 A903 




LDfl •» 


C063 8D0283 




STfl nxz 


C068 A9A4 




LDfl «m 


C06A 8D030J 


i 


STfl *0303 


CP6TJ A9FF 




LDfl MFF 


co-Ia 0390 




STfl »9D 


can «2&o 




LDX H08 


ca 73 moo 




LDV MM 



TSflVLOOP 



TSRVE3 



E 



C075 
COTS 
C075 
CO 75 

C875 2OC6C0 SAVE IT 
C070 A52B 
C07A 48 
C87B 2OF5C0 
C87E A52C 
CO 03 48 

ceei jofsco 

C034 A32D 
C806 2OF5C0 
C089 AS2E 
COGB 2OF3C0 
C86E 84FB 
C090 A42B 
C892 A900 
C094 8S2B 
C096 BI2B 
C890 20F3C0 
C09B C8 
C09C D002 
COSE E62C 

cene c*2D 

C0A2 AS2C 
COM E32E 
C0fl6 98EE 
CBA8 B5f B 
COflA 20F3C8 
COAD 2009C1 
COBO R9IB 
C0B2 BDI1D8 
COBS A937 
COB 7 6«1 
CO 83 58 
COBfl £8 
COBB 852C 
COB 3 68 
COW BS2B 
C8C0 2894FF 
C0C3 4C74A4 

cec6 r 

C8C6 A906 MRTHIR 
C0C3 6501 
c^d KM 
COCC 8D1ID8 
C&CF Cfl HEflDRl 
C8D8 DOFD 
I COPT 83 



(THE FAST SAVE ROUTINE 
'STARTS MERE. 



JSR URTHDfl 
LDfl f2fl 
PHfl 

JSR URTBYT 
LDfl ISC 
PHfl 

JSR URTBYT 
LDfl «D 
JSR URTBYT 
LDfl f2£ 
J CP URTBYT 
STV f FB 
LDV I2B 
LDfl •«« 
STfl *2B 
LDfl <«2B>.V 
JSR HRTBVT 
IHV 

BHE TSAVE3 
INC f2C 
CPV 120 
LDfl nc 
SBC *2€ 
BCC TSAVLOOP 
LDfl »FB 
JSR URTBYT 
JSR HRT8IT 
LDA «1B 
STA fDflll 
LDfl i<37 
STA SOI 
CLI 
PLfl 

STfl I2C 
PLfl 

STfl ff2B 
JSR *FF84 
JHP MM74 



ICHflHOe SAVE VECTOR 
! TO GO TO HEU 
I SAVE ROUTINE 



ISftVE OFF .fl 
I GET DEVICE ■ 
I NUMBER 77 
I YES 

I DO HORfflL SAVE 



(BLANK FILENAME 



I GET FILENAME LENGTH 
•GREATER THAN |4? 

IGta-V 1ST 14 CHARS 



•GET FILENAME 
'STORE IT 
•CO NEXT CHAR 



(GET LOADER BYTE 
! STORE IT TO SAVE 

IFOR ALL BYTES 



(SET FILE DETAILS 
•LENGTH OF F I LENAME 
(FILENAME LO 
(FILENAME HI 
•SET NAME DETAILS 



(SAVE START HI 

ISflVE START LO 
f POINT TO START 
(SAVE END LO 
(SAVE END HI 
ISflVE LOADER FILE 

! RESET HARM START 
I VECTOR 



LDA M« 
STfl »81 
LDfl MOB 
STfl «0811 
HEX 

BrC HEflDRI 
-KV 



•WRITE ALIGNMEHT BYTES 
(GET START LO 

(WRITE IT 
(GET START MI 

"WRITE IT 
(GET END LO 
(WRITE IT 
•GET END HI 
I WRITE IT 
(ZERO CHECKSUM 
(GET PAGE OFFSET 

(ZERO LO BYTE 
■GET A BYTE 
•WRITE IT 



\OCa END OF SAVE 



(HOT VET 

I GET CHECKSUM 

! WRITE IT 

I CLOSE OFF LAST BIT 

(UNBLANK SCREEN 

(STOP TAPE 
•RESTART IRQ 
'GET START HI 
i STORE IT 
(GET START LO 
'STORE IT 
(RESET I/O 
.'EXIT TO 'READY. ' 

I BASIC ROM OUT I 
• START TAPE 

(BLANK SCREEN 
"PAUSE FOR TAPE 
( TO GET TO FULL 
1 SPEED 



C8D3 DOFfl 

C8D5 78 

C8D6 A9A0 

C0D3 8D04DD 



CODD 8D85DD 
COEO A919 
C8E2 8D0EDD 
C0E5 A040 
C0E7 A94Q 
C8E9 20F5C3 
COEC 88 
COED D0F8 
C8EF ft?5A 
C0F1 20F5C8 
C3F4 66 
C0F3 

C0F5 85BD 
C0F7 45FB 
C0F9 85FB 
C6FB ft?08 
COFD 85A3 
COFF 26BD 
CI81 2889CI 
CI 84 C6A3 
CI06 D0F7 
CI 88 60 
CI 09 

CI 09 A270 
C10B 9082 
CI0D A2FF 
CIOF 6E04DD 
C112 A980 
CI 14 8D8SDD 
CI I 7 A901 
CII9 2C0DDD 
CI1C FOFB 
CUE A50I 
CI20 4908 
C122 8581 
CI 24 EE20D0 
C127 R9I9 
CI 29 8D0EDD 
CI2C A901 
CI2E 2C8DDD 
C13I F0FB 
CI 33 R501 
C133 4908 
CI 37 8581 
C139 A919 
C13B 8D0EDD 
C13E 60 
C13F 
C13F 
C13F 

CI3F A085 
CHI 
C143 
C146 88 
CI 47 10FA 
C149 78 
C14A A905 
CI4C 850I 
CI4E A91F 
CI50 8D0DDD 
CI 33 BD8DX 
CI 56 ADODDD 
CI 59 HCODDC 
CISC A968 
CISE 8DB4X 
CI61 A983 
CI 63 600SDC 
C166 0990 
CI68 8D0DDC 
C16B A951 
CI6D 8DFEFF 
CI 78 A903 
CI72 8CFFFF 
C173 A977 
CI 77 8DFAFF 
CI 70. 
C17C 
C17F A900 
C18I 8502 
C183 58 
CI 84 4CDD83 
CI87 
CI 87 
CI 87 

C187 A993 
C189 8D0203 
CISC R9fl4 
C18E 8 DO 303 
CI 9 1 4CS4FF 
C194 
C190 
C198 932A20 
C1A8 
CI A3 48 
C1A9 98 
Clflfl 48 
CIAB AD03DC 
C1AE AOI9 
CIBO 8C0EDC 
C1B3 4902 
C1B3 4A 
C1B6 4fl 
CIB7 2GA9 
CIB9 A5A9 



BKrT HCfilR: 
SEI 

LDfl »*A0 
STfl fOD04 
LDfl 1*00 
STfl tDDOS 
LDfl Ml 9 
STA «DWE 
LDV M40 
LDA 1(40 
JSR HRTBVT 
DEV 

BHE HEADR2 
LDfl «Sfl 
JSR HRTBVT 

RTS 

STB <BD 
EOR *F8 
STfl «FB 
LDA l«9 
STfl (R3 
ROL <8D 
JSR URTBIT 
DEC f A3 
BHE WBVTEl 
RTS 

LDX M70 
BCC WBIT1 
LDX MFF 
STX (DD04 
LDfl »*00 
STfl *DDOS 
LDfl BI01 
BIT fODOO 
BEQ UBIT2 
LDfl 101 
EOR W08 
STfl f01 
INC ID020 
LDfl «19 
STfl <DD0£ 
LDfl 1*01 
BIT ID»D 
BEQ UBIT3 
LDfl (01 
EOR 1108 
STfl (01 
LDfl Ml 9 
STfl fDDOE 
RTS 



THE LOADER STARTS HERE 



HEADR2 

HRTBVT 
WBVTEl 

HRTBIT 
HBIT1 

UBIT2 



WBIT3 



I 

LOADER 
BLLOOP 



ldv ises 

LDfl M20 
STfl WM-V 
DEV 
BPL 
SEI 
LDA 

STA (81 
LDfl MlF 
STfl (DCOD 
STfl (DC03 
LDfl (DD8D 
LDfl (DC8D 
LDfl M68 
STA (X84 
LDfl M03 
STfl (DC83 
LDfl M93 
STA (DC8D 
LDfl MSI 
STfl (FFFE 
LDfl M«3 
STfl (FFFF 
LDfl M77 
STfl (FFFfl 
LDfl M33 
STfl (FFFB 
LDfl M00 
STfl (02 
CLI 
JMP 



LDfl #(83 

STA (8302 

LDfl M04 

STA (8383 

JMP (FF84 

UOR (E3SJ.(02AB 



FLNAME 
(14 SPflCES 



CIBF C948 BITGOT 
CIC1 D009 
C1C3 A9I6 
C1C5 8D6503 
C1C8 A9FE EXI 
CICfl 83H9 



TXT '3» 

PMA 
TVfl 
PHfl 

LDfl (KOT 
LDV MI9 
STV (DC8E 
COR M02 
LSR fl 
LSR fl 
ROL <fl9 
LDfl <«9 

CMP i(48 
BNf EXIT 
LDfl MI6 
STfl (0363 
LDfl MFE 
STA ffl9 



! DISABLE IRO 
(INITIAL TIMER 
I VALUE FOR DELAY 



"START TIMER 

181000080 FOR 
IALIGNMENT 

I WRITE 64 OF THEM 
•CHECK HLIGMTENT 
'WRITE IT 



"STORE BYTE 
'CHECKSUM 

I LOOP FOR 8 BITS 

"BIT INTO CURRY 
'WRITE THE BIT 

•BO NEXT BIT 



(ASSUME ZERO BIT 
ICORRECT ASSUMPTION 
I SET FOR ONE BIT 
(SET TIMER 



(WAIT FOR TIMER 



' TOGGLE WRITE BIT 
! IN 6310 REGISTER 

ISHOU IT IS WORKING 

' START TIMER 
lUflIT FOR TIMER 



(TOGGLE WRITE BIT 
I IN 6318 REGISTER 



■START TIMER 



.BLANK OUT 'READY. ' 



I DISABLE IRQ 

(START TAPE 
■DISABLE KEYBOARD 



'SET TIMER 

(ENABLE TAPE IRO 

I SET IRQ VECTOR 
I TO POINT TO 
! LORD ROUTINE 

(SET HMI VECTOR 
( TO POINT TO 
( AN RTI 

(CLEAR LOADED FLflO 
lUPIT FOR END OF LOAD 



(RESET HARM START 
I VECTOR 



(RESET 1/0 



I IRQ ENTRY POINT 



(GET TIMER HI BYTE 
(RESTART TIMER 

"FLIP BIT 1 

) AND SHIFT TO 

I CARRY 

(MOVE BIT INTO 

I BYTE READ 

(WHEN BYTE READ 

I NOT COMPLETE BYTE 

'flLlGHMENI? 

I NO 

(SET NEW ADDRESS 

I GET READY FOR 
I A NEW BYTE 



C64 Utility 



1 

WAVEFORM 
WRITTEN OUT 


1 


1 
1 
| 


1 

1 : 


1 


1 
1 





















WAVEFORM 
READ BACK 




F F 
F - FLAG TRIGGERED ON FALLING EDGE OF PULSE 

Figure 1. High speed tape waveform 




Program Listing 1 (cont.) 



CICC RDODDC EXIT 


LDrl IDCOD 


ICLEAR IRQ 


cicr eo 


PLA 




cine «e 


TAV 




ClDI 68 


PLA 




CID2 40 


RTI 


(EXIT IRQ 


CIB3 1 
CI A3 C340 


Of M48 


IrCRE ALIGNMENT? 


L 1 JD r Wr 1 


BfcU LAI 


Ives 


cm? cssa 


Of* r»W 


IFINflL CHECK? 


C1D9 F067 


BEQ 8ITGT2 


IVES 


C1D3 H9QZ 


LDA »«C2 


ICO BflCK TO 


CID3 806363 


SIB W365 


1 ALIGNMENT ROUIIHE 


C1E0 DOES 


BNE EX1 




CIE2 R930 8ITGT2 


LDft •<30 


ISET NEW ADDRESS 


C1E4 806393 


sth »0365 


1 TO READ IH LORD 


C1E7 ft?oa 


u« tfoe 


i rtDSPisses. clehs 


C1E3 63C1 


STA «CI 


1 CHECKSUM 


CIE8 FODB 


BEG EX1 




(ID 1 






CI ED BZFB 


STA tFB 


(STORE LOAD ADDRESS 


CIEF EE9783 


INC *0397 


1 INCREASE STORE 


CIF2 109793 


LDA 10397 


t UNTIL 4 BYTES 


CIF5 C3FF 


Of> MFF 




CIF7 DOCF 


SHE EX1 


IHOT VET 


C1F9 A343 


LDfl »«43 


1 STORE HEW ADDRESS 


CIFB 8D6303 


STA «8363 


IFOR READING FILE 


CIFE DOCS 


BNE EX1 




CSH 1 






C3M ft""" 1 -' 


lby tree 




C202 91FB 


srn <ifB>.v 


1 STORE A BYTE 


C204 45C1 


EOR fCl 


1 CALCULATE CHECKSUM 


eras esc i 


Sift *CI 




C208 EE0OD3 


ihc i-j&e 


ISHOU IT IS WORKING 


C26B E6FB 


INC «FB 


1 INCREASE ADDRESS 


C23D D002 


BHE BITGT3 




C26F E6FC 


IHC *TC 




C211 A3FB BITGT3 


LDfl *FB 


(END OF LOAD? 


C2I3 C5FD 


OIP MT> 




C2I3 flSFC 


LDfl *FC 




C2I? E3FE 


SBC ffE 




C219 90AD 


BCC EX1 


•NOT VET 


C21B A96S 


LDfl »«63 


•NEU ADDRESS FOR 


C210 


STfl 10363 


1 CHECKSUM 


C220 D0A6 


BNE EX1 




C222 | 






C222 8SC2 


STfl fC2 


(STORE CHECKSUM 


(224 A9FF 


LDfl i«T 


(FLAG END OF LOAD 


C226 BS62 


STfl «2 




C228 ft»2 


LDfl t*02 


•RESET BRANCH TO 


C22A 8 06*O3 


STfl 10363 


1 ALIGNMENT 


C22D A9FB 


LDfl t"*RB 




C22F 8D9703 


STfl (0337 




C232 B094 


BHE EX1 




C234 1 






C234 l«-W3DD 






C234 1 






C234 «302 PAUSE 


LDfl «2 


(WAIT FOR FILE 


C336 f OFC 


BGQ PAUSE 


! TO BACKGROUND LOAD 


C238 A9C0 


LDfl t*ee 




C23H 6382 


STfl *02 




C23C AS07 


LDfl t«7 




C23E 6501 


STfl Ml 


(RESET KERNAL ROM 


C248 20F302 


JSR 102F3 




C243 206306 


JSR »A663 


ICLR 


C246 A3CI 


LDfl SCI 


1 COMPARE CHECKSUMS 


C248 C5C2 


CTP fC2 




C24A 0003 


BHE LODERR 


1 DIFFERENT.. ERROR 


C24C 4C74A4 


JMP 1A474 


(GO TO 'READY. ' 


C34F | 
C24F A2ID loderr 


LDX IflD 


C7L0AD ERROR' 


C25I 4C37A4 


JMP 1A437 


ISENO ERROR 




Program Listing 2 



B33C 
033C 
033C 
P33C 



t3X 

tax 



ceofl 

COOB 



803203 

A9C0 

8D3O03 



( FAST TAPE SAVE FOR THE 64. 

! *•*■<••*■■<*■•■*•>••'■■■■■■•■■■ 

I 

I THIS ROUTINE HILL SAVE A PROGRftfl 
(TO TAPE SO THAT WHEN LOADED BACK 
I IT MTU- LOAD FASTER THAN THE 
!I54I DISK DRIVE. 

IAN OPTION FOR flUTO-RUH IS 
I INCLUDED. 

I 

»-»coee 

LDA KSflWEC 
STA 10332 

* W t?2 ' >SflWEC 

Sift 
RTS 



CMC 
coc-e 
Mia 

CO 12 
C0I3 
C816 

cai< 
ceie 

C81B 
C01D 
COIF 
CC22 
CP23 
C023 
C027 

C82J 
CP2D 



48 

ASEfl 

C90? 

68 

4CSBP3 



I 

BAWEC 



LDfl tBfl 
CMP t«07 
BGQ TSAVE 
PLA 

JMP *F3ED 



8D23C2 

ftW 

A92B 

SMCC1 

88 

I0FA 

A4B7 

can 



TSAVE LDfl 



L0OP1 



•id a 



LOOK 



C83S BISS 
C032 996CCI 
C033 4C2DC8 



m*7 

B944CI 

9StCB! 

88 

10F7 
A 90 1 
Aft 
A8 

A?9E 

A28C 

ACCI 

20SDFF 

A980 

839D 

A9C2 

65FC 

A9BC 

85FB 

A9TB 

A294 



C03A 
C03D 
C84S 
C841 
C043 
C045 
C*46 
C047 
C84A 
C04C 
C04E 
COW 
C053 
C0S3 
C037 
C053 
C83B 
CM I 



TSAVEI 
FSAVE2 



CM! 



C8C9 
C068 
C06A 
C06D 
C36F 
C072 
C074 
C076 



29D8FF 
A963 

A9A4 
8D03O3 
R901 
859D 



LDV 
LDfl 
STfl 
DEV 
BPL 
LDV 
CPV 
BCC 
LDV 
DEV 
BMI 
LDfl 
SIfl 
jnp 

LDV 
LDft 
STR 
DEV 
BPL 
LDfl 
TfW 
TRY 
JSR 
LDfl 
LDX 
LDV 
JSR 
IDA 
SIfl 
LDft 
STft 
LDfl 
STA 
LDA 
LDX 
LDV 
JSR 
LDfl 
STA 
LDA 
STfl 
LDA 
STA 
LDV 



RUMFLG 
M6F 
MSB 
FLNAME.V 

LOOP I 

IB7 

**tl 

L00P2 

■fie 

TSAVEI 
<*BB>,Y 
FLHArCV 
L00P2 

M47 

LOtHEB-V 
•02BC-V 

TSAVE2 
■ »01 



BPFM 

«?E 

KFLHAME 

t>FLf«AME 

fFFBD 

■ 100 
f9D 
■102 
<FC 
MBC 
•FB 

■ «FI 
•»04 
M03 
•FFDO 
1183 



I CHANGE SAVE VECTOR 
f TO GO 10 NEW 
I SAVE ROUTINE 



•SAVE OFF .A 
I GET DEVICE * 
•NUMBER 7? 
(YES 

•DO NORMAL SAVE 

(GET SEC. ADDR. 
(FLAG FOR AUTO-RUN 



^ ?C *t • BLANK FILEHAfC 



AIA4 



I GET FILENAME LDlGIH 
•GREATER TNAH 16? 
'NO 

IOHLV 1ST 16 CHARS 



I GET FILENAME 

ISTORE IT 

I DO NEXI CHAR 



(GET LOADER BYTE 
•STORE IT TO SAVE - 

IFOR ALL BYTES 



•SET FILE DETAILS 
(LENGTH OF FILENrVC 
•FILENAME LO 
(FILENAME HI 
ISET NHME DETAILS 
I STOP NAME FROM BEING 
(PRINTED ON SAVE 

•SAVE START HI 

ISftVE START LO 
•POINT TO SIRRI 
I SAVE END LO 
(SAVE END HI 
(SAVE LOADER FILE 

'RESET MARTI START 
I VECTOR 



E 



• 101 

•3D 



CG4 Utility 



Program Listing 2 (cont.) 




C073 A200 

C07A 

C67fl 

C87A 

C07A 

C87A 20CEC0 
C87D A52S 

cotf 48 

CP80 20FAC0 
C683 AS2C 
C885 46 

caec 2flFACfl 

C889 A32D 

coos 20Fflca 
coe£ R328 
C090 20FACO 
C093 84FB 
CC95 R42B 
C097 R900 
C899 832B 
C89B B12B 
C69D 2OFAC0 



LDX 

• THE FAST SAVE ROUTINE 
(STARTS IffflE. 



E 



TSAVLOOP 



COfll 
ceta E6X 
cans C42S rsftVEa 

C0A7 A52C 

C8A9 E32E 

CfttlB 90EE 

CCAD ftSFB 

CQff 20FAC8 

CC82 208ECI 

C0B9 R911 

C8B7 fiDUDe 

C8BA A937 

COBC 6561 

CdBE 58 

CBBF 68 

C0C0 852C 

C0C2 60 

C0C3 C32B 

C0C5 2084FF 

C0C8 4C74A4 

CBCB t 

C0CB (1306 WRTH3R 

COCO 8501 

CeCF A90B 

C0D1 6D11D0 

C0D4 CA MC/WI 

C0D5 MFD 

C0D7 88 

CODS D0FA 

CODA 78 

COBB A9A0 

CODS 9D04DD 

GOES A9O0 

C0E2 8D05DD 

C0E5 A919 

C0E7 BDOEDD 

cecft A04O _ 

CeeC A940 HEADR2 

C8EE 20FAC0 

C8FI 88 

CBF2 D8F9 

C0F4 H93A 

C0F6 20FAC0 



COFfl 638D HRTBVT 
C3FC 45FB 
CWE 83FB 
C100 A9Q8 
C102 65A3 
C104 26BD MBVTE1 
C106 288ECI 
C109 C6A3 
CI0B D0F7 
C10D 60 
C10E ! 
C18E R34Q WQin 
cue 9002 
C112 A290 
CI 14 8E04DD WBIT1 
C! 17 R908 
CI 19 8D05DD 
CMC A901 
CUE 2C0DDD UBIT2 
C121 F0F8 
CI23 A5Q1 
CI25 4903 
C127 8S81 
CI 29 EE28D0 
C12C A919 
C12E 8D0OD 
C131 AMI 
C133 2C0DDD WBIT3 
CI 36 FOFB 
C138 A581 
C13A 4908 
C13C 8501 
C13E R919 
CI 40 8D0E0D 
CI 43 68 
CI 44 
C144 
C144 

C144 AD20D0 LOADER 
C147 85FE 
C149 A9A4 
CHB 8D0383 
C14E 
C150 

C153 205103 
CI 56 A5FE 



JSR 
LOT «2B 

PW . 
JSR MRTBVT lpp-AP» 
LOT «2C 

PHfl . _ 

ssr 

jsr wrtbst _,~f <?S>o 

SIV <FB ~° ^ CO 

LBV 129 

LOT MOO 

STA 128 

LOT CI28>,V 

JSR WRTBVT JofA'SO 

INV 

BNE TSRVE3 
INC S2C 
CPV R3 
LOT rx 
SBC (2E 
BCC TSAVLOOP 
LOT *FB 
JSR WRTBVT 
JSR WRTBIT 
LOT HI) 
STfl 1D0I1 
LOT M37 
STfl »01 
CLI 
R_fl 

STfl 12C 
PLA 

STfl 128 
JSR 1FF84 
JMP 1A474 

LOT 

STfl 101 
LOT M0B 
STfl 1D011 
rc- 
D€V 

ENE tCflWl 

SEI 

LOT MOO 

STfl *DW4 

LOT ••00 
STfl *D085 
LOT t*19 
STfl «DDOe 
LBV tl*Q 
LOT "48 

JSR WRTBVT 

DEV 

W IOUK2 
LOT t»5fl 
JSR URTBVT 
RTS 

STfl «BD 
EOR *FB 
STfl *FB 
LOT I«06 
STfl »R3 
POL <BD 
JSR URTB1T 
DEC fR3 
EKE UBVTEI 
RTS 

LDX ■«48 

BCC HBIT1 
LDX 

STX «DD04 
LOT #<00 
STfl SDD03 
LOT fl(01 
BIT «OD0D 
BEQ MBIT2 

lot *ei 

EOR ■«08 

STfl <01 
IMC »D020 
LOT «19 
STfl «BD0E 
LOT »»01 
BIT (DD8D 
BEQ WBIT3 
LOT »81 
EOR #108 
STfl <01 
LOT "19 
STfl «DD0E 
RTS 



I THE LOADER STARTS MERE 



LOT »D028 
STfl fFE 
LOT HM 
STfl *0303 
LOT **83 
STfl »0302 
JSR 19331 
LOT 1FE 



!l*?ITE flLIGNMEUT BYTES 
I GET START LO 

IURITE IT 

I GET STPRT HI 

I WRITE IT 
I GET EHD LO 
] WRITE IT 
f GET EHD HI 
IURITE IT 
'ZERO CHECKSUM 
'GET PflGE OFFSET 

I ZERO LO BVTE 
!0£T fl BVTE 
IURITE IT 



ICHEOC EHD OF SflVE 



(MOT VET 

I GET CHECKSLM 

"WRITE IT 

ICLCtSE OFF LRST BIT 

lUNBLflNK SCREEN 

■STOP TAPE 
I RESTART IRQ 
ICET START HI 
(STORE IT 
1GET START LO 
1 STORE IT 
'RESET I/O 
(EXIT TO 'READS'. ' 

(BASIC ROM OUT * 
• START TAPE 

! BLANK SCREEH 
I PAUSE FOR TAPE 
I TO GET TO FULL 
I SPEED 

! DISABLE IRQ 

I INITIAL TlrtB 

I VALUE FOR DELAV 



! START TIMER 

101000060 FOR 
lALlGH-tNT 

(WRITE 64 OF THEH 
I CHECK ALIGHHEHT 
(WRITE IT 



(STORE BVTE 
I CHECKSUM 

ILOOP FOR 8 BITS 

(BIT IMTO CARRY 
I WRITE THE BIT 

(DO NEXT BIT 



(ASSUME ZERO BIT 

icorrgct nraugrtOH 

(SET FOR OME BIT 
(SET TIMER - 



•WHIT FOR TIMER 



(TOGGLE WRITE BIT 
( IN 6318 REGISTER 

fSHOU IT IS U0RKIM3 

(START TIMER _ 
(HflIT FOR TIMER 



(TOGGLE WRITE BIT 
! IM 6518 REGISTER 



I START TIMER 



(SAVE BORDER COLOUR 
I RESET UftRM START 
I VECTOR 



(FAST LOAD THE FILE 



13 EXIT 
LODERR 



(16 SPACES 

!t-*0331 
I 



C158 832OD0 
C15B A937 
C15D 8501 
ClSF 33 
C160 P91B 
C162 0011 DO 
CI 63 2084FK 
CI 68 A5FC 
C16A C3FB 
C16C DO 15 
C16E 2063A6 
CI 71 ADDE03 
CI 74 F08A 
CI 76 208EA6 
CI 79 A9O0 
CI 78 859D 
C17D 4CAEA7 
C160 

C180 6C020 
C183 

C183 A21D 
C185 4C37A4 
CI88 ! 
CI S3 8BE3 
CI8A BC82 
CISC I 
CISC 202028 FUWME 
C19C 
CI9C 
CISC 
C19C 
CISC 

CISC 280703 
C19F 26BA83 
CIA2 A8 
C1A3 A900 
C1A3 85C1 
C1A7 20BA03 
CIAA 85C2 
CI AC 20BAO3 
ClAF 852D 
C1B1 2OBA03 
C184 632E 
CIB6 20BA03 TL0HD1 
C1B9 91C1 
C1BB 43FC 
CIBD 85FC 
CIBF C8 
CI CO P002 
C1C2 E6C2 
C1C4 C42D 
CIC6 A5C2 
C1C3 E52E 
C1CA 90EA 
C1CC 20BA03 
CICf 85FB 
C1D1 60 
C1D2 
C1D2 
C1D2 

CID2 H907 
C1D4 6501 
C1D6 A90B 
CID8 8D11D0 
C1DB CP 
C1DC DOFD 
CI DC 83 
C1DF B8FA 
C1EI 73 
C1E2 84FC 
C1E4 8C03DD 
C1E7 KffO 
C1E9 8D04DD 
ClEC A20O 
C1EE 20C883 RMEnD2 
C1F1 26BD 
C1F3 A3 BO 
C1F5 C940 
C1F7 D0F5 
C1F9 20BA03 KHEAD3 
CIFC C940 
C1FE F0F9 
C-M Ci-.il 
C202 DOEA 
C204 60 
C205 
C205 
C203 I 
C205 A90I 
C207 85BD 
C209 20CS03 GBVTE1 
C20C 263D 

C210 A35D 
C212 68 
C213 
C213 
C213 

C213 A918 
C213 2C0DDC GBIT1 
C2I8 F0FB 
C21fl AD0DDD 
C2ID 48 
C21E A919 
C220 6D0EDD 
C223 68 
C224 CE20D0 
C227 4A 
C228 60 
B29 
C229 
C229 
C229 CO 



TL0AD2 



!■ 1 MB 



RHEAD1 



H-103C8 



STA 1D020 
LOT 1137 

STA MI 
CLI 

LDA Mil 
STA 1D011 
JSR 1FF&4 
LOT fFC 
CMP 1FB 
8NE LODE PR 
JSR 1A663 
LDA 183DE 
BEO EXIT 
JSR »A6fi£ 
LOT ««O0 
STA »9D 
JMP «17AE 

JMP < 10302) 

LDX MID 
JMP 1A437 

WOR »£3aB 
HOR 102BC 

TXT " 



JSR 18387 
JSR 183 BA 
TRY 
LOT 
STfl 1C1 
JSR 183BA 
STfl »C2 
JSR 103BA 
STfl 12D 
JSR 103BA 
STfl 12E 
JSR 183BA 
STA C1CI>.Y 
EOR 1FC 
STA «FC 
INV 

BHE TL0HD2 
IHC *C2 
CPV 12D 
LOT 1C2 
SBC 12£ 
BCC TLOflDl 
JSR 1038A 
STfl 1FB 
RTS 



LDA M07 
STA S01 
LOT MOB 
STfl 1D0I1 
DEX 

BHE RHEADI 
DEV 

BHE RHEAD1 

SEI 

STY »FC 
STV 1CD05 
LDfl »1F8 
STfl 1DD04 
LDX MOO 
JSR »83C8 
ROL 1BD 
LOT «BD 
CMP Bt46 
SHE RHEAD2 
JSR 103BA 
CMP M40 
BEQ RHEAD3 
CMP tlSA 
BHE RHEA 02 
RTS 



LOT M01 
STfl 1BD 
JSR <83C8 
ROL 1BD 
BCC GBVTE1 
LDfl 1BD 
RTS 



LOT f»I0 

BIT IDC8D 
BEO GBIT1 
LOT 1DD03 
PHfl 

LOT M19 
STA 1DD0E 
PLA 

IHC 1D020 
LSR R 
RTS 



I RESTORE BORDER COLOUR 

(STOP THE TAPE 
(RESTORE IRQ 

I UH BLANK SCREEN 
I RESET I/O 

(COMPARE CALCULATED TO 
I LOADED CHECKSUM 
I DIFFERENT.. ERROR 
(CLR 

I GET AUTO-RUM FLAG 
(NO RUN 

(SET CHARGET POIHTER 

I FLAG RUN MODE 
(RUN 

(WARM START 

I '7L0AD ERROR" 
t 



(ERROR LI(* 

I WORM START LIHK 



(READ HEADER 
(READ A BVTE 
'LOAD LO 



I READ A BYTE 
I LOAD HI 
(READ A BVTE 
(EHD LO 
•READ A BVTE 
(END HI 
(READ R BYTE 
(STORE IT 

(CALCULATE CHECKSUM 



I CHECK END OF LOAD 



(NOT YET 
(READ CHECKSUM 



(START TAPE 

i REACH FULL SPEED 



(DISABLE IRQ 
*ZfRO CHECKSUM 
(SET TIMER HI 

(SET TIMER LO 

(READ R BIT 
( IMTO BVTE 

(ALIGNED? 
(NOT VET 
I READ A BVTE 
I IS IT 64? 
IVES 

I ALIGNMENT CHECK? 
(MO 



'READ A BIT 
icQMPLETeSvTE 



IKAIT FOR BIT 
(GET BIT 

(START TIMER 

fSNOM IT IS WORKING 
'MOVE BIT INTO CARRY 



!««103DE 

! 

RUNFLG 



BYT 0 




MERC 



FROM PAUL WOAKES 
AUTHOR OF CNCOUMTt !K 




Mercenary - a unique combination of flight 
simulation, adventure and arcade fun. You choose 
the action. 

There is complete freedom of movement in 
a truly three-dimensional vector-graphic environ- 
ment Graphics of exceptional speed create a 
very realistic experience. 

You'll never play the same game twice. 
Random elements attempt to seal your fate. 
Your interaction is crucial. 

Mercenary presents an absorbing challenge 
that you will accept again and again. 








iijiiyiiiiiiiiiiinpiiiiii 





Alphonse T. Nurd needs help. His alter-ego has discovered 
the meaning of independence. If you can discover the 
secrets of sub-atomic particle separators and clean lifts, 
this is the game for you. The puzzle of a liftetime ... or two. 



\ 






The most powerful games in the Universe! 




DjR 



Available from all good software shops. 
In case of difficulty write to: i 
QUICKSILVA Ltd. Liberty House, 222 Regent Street, London W1 R 7DB tel: 01 439 0666 




Graphic 



Let some fresh air into your 



graphics with this look 



through windows by Allen 



Webb. 



GREETINGS FELLOW 64 OWNERS, HERE 
are some more graphics wheezes to add 
that bit of power to your elbows. First, 
however, it's grovelling time. Remember 
part one of this series? You may have 
noticed a POKE to location 1006 in the 
demonstration. Much to my embarass- 
ment, I didn't tell you what it does. It 
holds the number of shifts executed when 
you call the roll routines. A value of one 
will roll the design one pixel, a value of 
two rolls it two pixels, etc. Values greater 
than three aren't too helpful, but the use 
of this register will make your efforts that 
little bit more interesting. 

This month I want to deal with 
graphics windows. A window is a 
definable area of the screen which can be 
manipulated independently of the rest of 
the screen. The real value of windows is in 
the generation of menus and text games 
such as adventures. 

As usual, the software is given as a 
Basic loader in listing one. The code sits at 
SC0O0 so it will unfortunately clash with 
the character routines - abject apologies 
but such is life. 

The first problem to resolve is how to 
define a window. Consider Figure 1. 
The rectangle represents a window of 
width W characters and height H units 
somewhere on the screen. The top left 
hand corner is fixed by the co-ordinates" 
XCand YC. These four values are all that is 
necessary to specify the window. The 
machine code allows you to reserve and 
access up to 10 windows - numbered 0 to 
9. Each window is defined in four tables in 
terms of co-ordinates of the lop left hand 
corner and the height and width. The 
command for specifying a window has the 
syntax: 

SYS 49155,WN,XC,YC,W,H 

WN is the window number and the other 
parameters are as specified earlier. It is 
important that you set up a window 
before manipulating it. When the 
program is set up the window tables 
contain zero and any action on an un 
-defined window will, at best, corrupt 
your Basic program so be warned!! 

What can you do with the window? 
The next command has two forms 
depending on what you wish to do. A flag 
decides your action and the syntax. The 
first form will fill the window with a 
specified character CH: 

SYS49158,WN,0,CH 



TOP 



DRAW 




i.e. the flag has a zero value. A non-zero 
flag simply reverses the contents of the 
window: 

SYS 49158.WN 

If you use the fill command with a 
value of CH equal to 32, the window will 
be cleared. 

Finally, you can scroll the contents of 
the screen. To maintain compatibility with 
the normal 64 operation, the scrolling is 
upwards with the bottom line of the 
window being filled with blanks. The 
syntax of this command is: 

SYS 49152,WN 

To help you see what these routines 
will do, I've given two demonstrations. 
The first shows the manipulation of three 
windows at once. Since the window 
scrolls upwards, you must somehow print 
text at the bottom line. In my experience, 
the use of cursor control codes and TAB 
are both inelegant and tiresome. It's far 
better to use a routine in the 64's Kernal. 
The following line will do this: 

POKE 781 ,Y: POKE 782.X: POKE 783,0: SYS 
65520 

where X and Y are the co-ordinates of the 
point to which you want to move the 
cursor. Line 230 in the demo does this. 

The second demonstration uses 
randomly created windows to produce a 
pattern. 

I have included a degree of checking 
in the routine so that some illegal values 
(e.g. width 40 or height 25) will be 



rejected. Not all possibilities are catered 
for and it's up to you to ensure that silly 
values are not generated in your program. 

The routines should be of most value 
to adventure freaks since it is simple to 
create two or three text windows with 
independent scrolling. 

Now, I want to deal with a feature 
which the BBC, C16 and Spectrum have in 
common. The ability to use flashing 
characters. The simple way to implement 
this is to use the attribute of each 
character to hold a flash flag. This is not 
simple to do on the 64 because there is no 
spare bit in the video matrix and it isn't 
easy to use the top four bits in the colour 
matrix. My solution is to let you select a 
colour to flash. This colour is kept in 
location 1000. The routine is called every 
50th of a second by the IRQ interrupt. The 
screen is scanned every 25 interrupt calls, 
so that the flash rate is about twice a 
second. The routine scans the colour 
matrix and inverts every character of the 
specified colour. This routine is given in 
Listing two and a demonstration in demo 
three. 

Owners with new ROM 64s should 
take a little care. These machines fill the 
colour matrix with the current colour 
each time the screen is cleared. If the 
current colour is the flash colour, the 
whole screen will flash. Demo three 
shows how to use the routine. 

To turn off the character flash, simply 
enter: 

SYS 52736 

That's all for this time, see you again next 
month. Happy hacking! 



E 



bccccc 




Demonstration 1 




Listing 1 



20 
30 
40 
50 
60 



0 REM DEMONSTRATION 1 

1 REM 

10 PCKE532B1 , 1 

DATA 0,0,3, 10 
DATA 15,8,9,12 
DATA 5. 3, 10, 10 

FOR LLtN-OTaZ: READ XCUN) , YCUN!> , U 
ICUIN) ,HICUJN? 
70 NEXT 

80 FOR 'JN=0TD2 

30 SYS 12*4035+3, UN, XCUN) , YCUN) , Ul I 

CUN? . HI CUN) 

100 NEXT 

110 FOR UN-0T02 

120 C0-RNDC1)»1B: IFC0-1THEN120 
P0KE646,Ca 

IFUN-ODRUN-1 THEN 60SUE 130: PR 
INTLEFT$CO$,WICWN5 3 : SYS12*4036 , UJN 
150 IFUN-2THENSYS12*4036+6 , UN , 0 , RN 

DC1>*S56 

150 IF RNDC 1 ) < . 5THEN SYS 12*4095*6 
1 

NEXT 

GOTO 110 

P0KE781.YCWN)+HI CUIN>-1 : PQKE78 



130 
140 



.UN 
170 
1B0 
190 



2 , XCUN? : P0KE7B3 , 0 : SYS65520 : RETURN 



0 REH LISTING 1 

1 DATA76, 9. 192,76, 114, 192,76, 133, 1 
93,32,238, 192, 165 , 20 , 14 1 , 232 , 3 , 32 , 
210, 192 

2 DATA32.29, 193 , 24 , 165 , 163 , 105,40, 
133, 167, 165. 164, 105,0, 133, 168,24, 1 

65, 169 

3 DATA105.40, 133, 175. 165, 170, 105,0 
,133,177,174,92,193,172,91,193,136 

.177,167 

4 DATA 145 , 153 , 177 , 176 , 145 , 169 , 136 , 
16,245.202,240,28,24, 165, 163, 105,4 

0, 133 

5 DATA 163 . 144 , 2 , 230 , 164 , 24 , 165 , 167 
,105.40,133,167,144,2,230,168,32,6 

,193,76 

6 DATA52, 192, 172,91, 193, 136, 169,32 
, 145, 163, 169, 1, 145, 169, 136, 16,245, 
96,32 

7 DATA23B, 192, 165.20,201, 10, 176,64 
, 141, 232, 3, 32, 23B, 192, 172,232,3,16 
5,20,201 

B DATA41 . 176 , 49 , 153 , 93 , 193 , 32 , 238 , 
192 , 172 , 232 , 3 , 165 , 20 , 201 , 25 , 176 , 34 
, 153, 103 

9 DATA 193 , 32 , 23B , 192 , 172 , 232 , 3 , 165 
,20,201,41,176,19,153,113,193,32,2 

3B, 192 




Demonstration 2 




20 
30 
40 
50 
60 
70 



Efl DEMONSTRATION 

INTCRNDC15»20)*1 
i:i-INTCRNDC 1)*20) + 1 

ys-int<:rndci^*i2) + i 
h i ■ i nt c rndc 1?*12) + 1 
sys 12*4096+3 , 1 , xs , ys , u i , h l 

SYS12*4096-*-5, 1,0, RNDC 1 ) *128 
SYS12*4096+6 ,1,1: 60T010 




Demonstration 3 





10 REH DEMONSTRATION 3 
20 REM 

30 SYS 52736: REM TURN THEM ON 
40 POKE 1000,1 : REM UHITE TO FLASH 
50 PR I NT " C CLEAR 3 C CYAN 3 TH I S CUHITE3 
ISC YELL0U3 A C UH I TE3DEM0NSTRAT IONC 
c 73 GF CUIH 

I TE 3 FLASH I NGC c 83 CHARACTERS " 



0 REM LISTING 2 

1 DATA169 , 25 , 141 , 233 , 3 , 120 , 163 , 79 , 
141,20,3, 169,206,141,21,3,88,96, 16 

9,0,133 

2 DATA2S1, 163,216, 133,252, 160,0,17 
7 , 251 , 41 , 15 , 205 , 232 , 3 , 208 , 17 , 165 , 2 

51 , 133 

3 DATA253 , 56 , 165 , 252 , 233 , 212 , 133 , 2 
54 , 177 , 253 , 73 , 128 , 145 , 253 , 230 , 251 , 
20B,2 

4 DATA230, 252, 165,251,201,232,240, 
3 , 76 , 28 , 206 , 165 , 252 . 201 , 219 , 240 , 3 , 
76 28 

5 DATA206 , 96 , 206 . 233 , 3 , 208 , 8 , 169 , 2 
5,141,233,3,32,18,206,76,49,234,23 

8 

6 F0RI-52736T052a31 

7 READX : T-T+X 

B POKE I ,X:NEXT 

9 I FT< > 1373BTHENPR I NT "ERROR IN DAT 
A " 

10 REM 

11 REM FLASHING CHARACTERS ROUTINE 



Graphics 



10 DATA172, 232,3, 165, 20,201,26, 176 
,4,153, 123, 193,96, 163, 195, 160, 192, 
32,30 

1 1 DATA171 , 96 , 73 , 76 , 76 , 69 , 71 , 65 , 75 
, 32 , B6 , 65 , 76 , 85 , 69 , 63 , 0 , 172 , 232 , 3 , 
185,33 

12 DATA 193 , 141 , 89 , 193 , 185 , 103 , 193 , 
141,90, 193, 1B5, 113, 193, 141,91, 193, 
185, 123 

13 DATA 193 , 141 , 92 , 193 , 96 , 32 , 253 , 17 
4,32, 138, 173,32,247, 183,96, 165, 169 
,24,105 

14 DATA40, 133, 176, 165, 170, 105,0, 13 
3, 177,96,24, 165, 169, 105,40, 133, 169 
,144,2 

15 DATA230, 170,24, 165, 176, 105, 40, 1 
33, 176, 144,2,230, 177,96, 169,0, 133, 
163, 169 

16 DATA4 , 133 , 164 , 174 , 90 , 193 , 240 , 16 
,24,165, 163, 105,40, 133, 163, 165, 164 
,105,0 

17 DATA133, 164 , 202 , 208 , 240 , 174 , 89 , 
193,240, 14,24, 165, 163, 109, B9 , 193,1 
33, 163 

IB DATA165, 164 , 105 , 0 , 133 , 164 , 165 , 1 
63,133, 169, 165, 164,24, 105,212, 133, 
170,96 



0,0,0,5,0,0,0,0,0,0,0,0,5,5,0,0,0, 
0,0,0 

20 DATAO ,0,5,5,0,0,0,0,0,0,0,0,32, 
23B, 192, 165,20, 141,232,3,32,238, 19 
2,165 ' 

21 DATA20 , 141 , 234 , 3 , 208 , 8 , 32 , 238 , 1 
92, 165,20, 141 ,233,3,32,210, 192, 32, 
29, 193 

22 DATA162.0, 160,0,32,204, 193,200, 
204,91, 193,240,3,76, 169, 193,24, 165 
, 163, 105 

23 DATA40, 133, 163, 165, 164, 105,0, 13 
3, 164,232,236, 92, 193 , 240 , 3 , 76 , 167, 
193,96 

24 DATA173,234,3,20B,5,173,233,3, 1 
45, 163,201, 1,208,6, 177, 163,73, 128, 
145, 163 

25 DATA96 

26 REM 

27 REM WINDOW GENERATOR C64 

28 REM A + ff ASSOCIATES 1985 

29 REM 

30 FOR I - 49152 TO 49632 

31 READ X: T = T + X 

32 POKE I , X 

33 NEXT 

34 IF TO55680 THEN PRINT"ERROR IN 
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FAST LOADERS TO DISK 



COMMODORE 64 
1541 DISK DRIVE 



TAPE FAST LOADERS 



MEGA-TRANSFER DISK - £16.00 

A mighty collection of routines which will efficiently 
transfer an extremely wide range of fast loading tapes lo 
disk General purpose routines to transfer Nova. Pav, 
Burner. Flash. Hyper. CBS loaders and others. A huge 
menu of individual routines for unusual loaders, 
including combination slow/fast loaders, the latest 
sports simulations and top arcade and adventure 
games General purpose routine for those difficult U.S. 
slow loaders which even Diskus l can't handle. And 
transfer routines for programs recorded using R.B.S:, 
Fastback and Hypersave-64. Includes a program 
identifier. All transfer is automatic. No user knowledge 
required. MEGA-TRANSFER DISK is the finest transfer 
utility available for fast loading programs. Don't settle 
for less. 



MEGA-UTILITY DISK — £11.00 

l ALPHALOAD Disk Turbo Loader. Add this short 
program to each of your disks and your programs will 
load at over FOUR times the normal rate. No menu is 
required and you DON'T have to load Alphaload 
separately. Example: 200 blocks. Normal speed 130 
seconds - with ALPHALOAD Just 30 seconds. 

2. FAST COPY. A high class single drive whole disk 
copier. Backup a full disk in a little over 3 minutes. Will 
handle many commercial disks but not if heavily 
protected. 

3. A multi option FAST disk formatter and a single file 
transfer routine which will handle program files of any 
length. 

4. DISK TO TAPE. Transfer any single disk program to 
(ape (fast load). No memory conflict. Will handle 
programs of 200 blocks and more. 



DISKUS I — £11.00 

The Premier tape to disk transfer utility for your slow 
load tape collection. Multipart. Headeriess. and autorun 
programs are all catered for. No user knowledge 
required Diskus 1 has provision tor program types 
which no other utility can handle. Supplied on disk. 

DISCOUNTS'! Any two ol MEGA-TRANSFER DISK. DISKUS I or 
MFGA UTILITY DISK {tingle dUk) £33.00. ALL THREE |uat 
£29 00 Or try our FULL RANGE DISK (every program In Ihia Ad. 
Plua our high quality Sprit* Editor. PRO-SPRITE, and tap* 
backup/header reader at £35.00 (dlak only). Megadlak ownera. 
Send Megadlak inatrucllon sheet or Megadlak lor £12 credit 
agalnat any otter In thla Ad over £30. 

! ! TAPE SPECIAL ! ! 

RAPID BACKUP SYSTEM |HB S). Convert your slow loading 
tapes to TURBOLOAD. Multipart and autorun programs are 
handled with ease No user knowledge required R.B.S. will 
convert more programs than any competing utility 

HV PER SAVE 64 Retaining the flexibility which the programme' 
requires. Hypersave leaves you in control. Save/load 'verity up to 
48k continuous Ram at HYPERSPEED. 

SPECIAL SUMMER OFFER! BOTH PROGRAMS JUST £7.00 It 
you mention this Ad. (Program, available individually al £5.00 
each) 



All programs for the Commodore 64. 

Send SAE for full details or cheque/P.O. for fast 

despatch to: 

DOSOFT 
2 OAKMOOR AVENUE 
BLACKPOOL FY2 OEE 

U.K. Postage Included. Europe 
Overseas add £1.50 tor airmal. 



E 



please add 75p. 



Competition 




Do you feel the need to 



communicate 



owners? Well you could win 



one of 10 Commodore 




modems that we are giving 



away in this month's 



competition 



le rules 

ENTRIES WILL NOT BE ACCEPTED FROM 
employees of Argus Specialist Publica- 
tions, Commodore Business Machines 
and Alabaster Passmore and Sons. This 
restriction also applies to employee's 
families and agents of the companies. 

The how to enter section forms parfof 
the rules. The Editor's decision is final and 
no correspondence will be entered into. 
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How to enter 

There are a few differences between the 
two pictures. Study them carefully and 
circle the differences on the picture 
attached to the coupon. Fill in the coupon 
clearly and seal the picture and coupon in 
an envelope. Write clearly the number of 
differences you found on the back of the 
envelope. 

Post your entry to: 
Modem Competition, Your Commodore, 
No 1 Golden Square, London W1R 3AB. 
The closing date is first post on Thursday, 
31st November 1985. You may enter as 
many times as you like but each entry must 
be on an officialcoupon - not a copy - and 
sealed in a separate envelope. 

Important: Please follow closely the 
guidelines on entering - incomplete 
coupons and entries with no numbers on 
the back cannot be considered. If you are 
a winner, the coupon will act as a label for 
your prize so clear writing is essential. 



Darling, its been on that phone all day 



"Darling, its been on that phone all day 
ENTRY FORM 



Name . . 
Address 



Post Code. 



Age Occupation 

Please complete the following tie breaker: 
I would use my Commodore modem to . 
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THE COUNTDOWN HAS BEGUN 




ft.R-P. £8.95 

DURELL sales dept., 

r Castle Lodge, C 



njaunton TA1 4AB 



Peter Thomas has been 
exercising his brain on 
Ocean's Summer Games II. 
His verdict was very good. 



Read on. 



FOR THOSE OF YOU, LIKE ME, WHO 
think that physical exercise is moving the 
car an extra yard or so from the front door 
each morning but who are mentally 
capable of giving Daley Thompson and 
5teve Cram a run for their money, 
Summer Games // is just perfect. 

Owners of the original Summer 
Games - now world leaders in the pole 
vault, dab hands at the full tuck dive, 
champions in the 4 * 400 metres relay and 
challenging Carl Lewis's 100 metre record 
- beware! If you have thrown in the towel 
in the freestyle relay and consider the 
gymnastics and sheet shooting difficult to 
master, rest assured that you can sit back 
and relax with Summer Games II - 
because it's twice as difficult. 

You start with a simple hop, step and 
jump in the triple jump and if you don't 
fall head first in the sand you can watch an 
action replay of your successful soar 
across the sand while the appreciative 
crowd applauds. 

Oarsmen and women among you can 
tackle the single sculls rowing and pit 
your skill against your friends, the 
computer or the clock. The split screen 
makes this event very exciting and 
realistic. 

After the water you return to dry land 
for the javelin where a combination of 
speed, timing and power sees the javelin 
fly through the air across the screen. 
Again a good throw gains appreciation 

from the crowd. 

The equestrian event brought back 
memories of pony trekking on Dartmoor 
when again I seemed to spend more time 
on the ground than on the horse. Timing 
is essential if you don't want an early 
ducking in the water jump. 

Once you've had enough of horsing 
around you can attempt the high jump. 
I'm not sure whether there was a bug in 
my version of the game or whether I'm 
just not cut out for the high jump, but 
only managed to get over the bar once 
and that was on the lowest level. 

If you've got a grudge against 
someone then you'll love the fencing. 
Now you've got your chance to flex your 
foil and battle it out with your opponent. 
Control is a little difficult but after some 
practice, and a few beatings, you'll get 

used to it. 

If you find that you have trouble 
staying on a tricycle then the cycling event 
is certainly not one for you. Rotating your 
joystick moves the man's legs on the 



pedals. If you don't move your joystick at 
a steady pace then you'll find yourself 
getting nowhere and see your opponent 
disappear towards the finishing line. 

Kayaking is certainly not an event to be 
rushed. You must guide your kayak down 
the white water while passing through a 
number of gates. Some gates must be 
passed through forward, others back- 
wards, some you even have to guide 
your kayak through while going up- 
stream. This is certainly an event which 
takes a lot of concentration. You'll soon 
figure out how to guide your craft but 



getting through the gates is a different 
matter. 

In each event you strive for gold silver 
or bronze medals all the time attempting 
new heights of glory to become the world 
record holder. 

Choose which country to represent 
out of a possible IB. put on your sports- 
wear and prepare for Summer Games //. 
Alternatively, lock your bedroom door 
switch on your computer and practice 
each event for half an hour while going on 
a strict diet until you are ready for the next 
major championship. — 




THE GAME 
OF A LIFETIME 





Available tor Commodore 64, Spectrum 48K and Spectrum + . Coming soon: Amstrad and MSX. 

rrr — ^Jr — 

FIREBIRD SOFTWARE WELLINGTON HOUSE 
UPPERST MARTIN SLANL LONDON WC2H90L 
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Jolly old Rupert can walk, 
jump, leap, climb stairs - 
and even fly - but can you 
get him to the party? 

32 challenging screens 
of animation and fun. 



The most powerful games in the Universe 



Quicksilva Ltd, Liberty House, 

222 Regent Street, London WIR 7DB. 

Telephone 01-439 0666 

Rupert Bear © Express Newspapers PLC 




Runecaster risks life and lim b 
yet again in order to bring 



in hie i (kliimp 
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AS I AM SURE YOU ALREADY KNOW, 
adventure games can cost quite a lot of 
money! Generally speaking the more 
expensive games are disc based and 
provide you with many hours of pleasure 
for your money. The higher middle range 
of tapes (around £10 plus) seem to be the 
ones that sometimes make you think. 

On the other hand there are a number 
of bargains around. My local Spectrum 
Chain shop had a couple of good buys. . . 
One would be loosely (very loosely) 
classed as an arcade adventure - Mystic 
Mansion - and the other, a well presented 
text adventure, was Aliard's Tomb. 
Respectively, £2.99 and £1.99. 

The first, US Gold, hardly comes within 
the range of this column but is worth 
looking at, especially if you have young 
children around. It is a 20 level, find the 
treasures, avoid the monsters, type of 
game with a good difficulty grading - 
Adult, Teenager or Child. 

The second, Aliard's Tomb, is a neat 
little adventure that does not appear to 
have any hideous inconsistencies and at 
the price is well worth buying. Fairly 
conventional scenario. . .dark dungeons, 
in which you have to find the aforesaid 
Tomb, solving several ingenious puzzles 
in the process. 

Keep your eyes skinned for these and 
other 'cheapies', they are often either 
reissues or are stock from defunct 
software houses. You will not find Exodus: 
Ultima III, The Hobbit or Eureka but may 
well find something to keep you 





Kitchen spin-off. . . 




Down in the kitchen something 
stirred... or rather squeaked! It was 
probably the lady of the house using one 
of those reusable shopping list boards - 
you know the type: plastic-faced and 
supplied with a water soluble ink marker. 
Make notes throughout the week on what 
is required - buy them on Saturday and 
wipe the 'slate' clean on Sunday. 

What has this to do with playing 
adventures? Well, a firm in Wales, Mapit, 
has produced a plastic reusable Map 
Maker. It is A3 size (two pages of Your 
Commodore) and has a 13x11 grid of 
14x27mm rectangles printed on it. ..just 
the thing for mapping all your trips 
elsewhere! There is space at the top of the 
board to make 'vital notes' and the pens 
supplied have a fine enough point to 
enable all the vital facts of a location to be 
recorded in the space provided. 



E 



The Map Maker costs £3.49 and there 
also is a range of suitable pens in various 
colours at 99p each. A little more 
expensive than scrap paper but as we 
approach Christmas. . .Mapit can be 
found at: 166 Robert Street, Ynysybwl 
(perhaps we should have a checksum on 
that!). Mid Glamorgan CF37 3EA. 
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Over the moon 

Level Nine does it again. Red Moon is the 
latest from Britain's number one 
adventure software house. As usual the 
products are available for a number of 
computers but of interest to us here is the 
C64 version. 

Over 200 pictures can be found as you 
explore the 'magik' land of the Red 
Moon. Level Nine seems to improve with 
age, not only can you turn the pictures off, 
saving the 'drawing' time, but with this 
program you can even type in commands 
whilst the pictures are being created on 
the screen! 

The Red Moon is about a land where 
Magik works, albeit nowhere nearly as 
strongly as in the past. In the past (he 
moon was crimson red and the source of 
all the great Magiks. As the moon faded to 

I the grey we know today, so the Magik 
wanted. A great concourse of Magicians 
created a substitute - the Red Moon 

I Crystal. This was mounted in the Moon 
Tower of Baskalos and shone out over the 
kingdom, maintaining an island of Magik 
and enlightened Civilization. 



But. . .the great Crystal was stolen. The 
Red Moon is the story of how a Magician 
(you!) recovered this fabulous gem and 
restored hope to the World. 

Not only are there hundreds of scene 
setting pictures but there are also the long 
and descriptive texts that have always 
been the hallmark of Level Nine games. 
Read, and wonder at it all. . .how do they 
get it all into our computer's memory? 
The pictures are good, better than the 
rather surrealistic landscapes of Return to 
Eden. They are certainly not high, hi-res 
works of art but serve the very important 
purpose of visually triggering recognition 
of your present location. 

As with all Level Nine games (and most 
other good adventures!) it is important to 
keep a careful map of your progress. 
There is a temptation when recognizable 
pictures are displayed, to skip the 
mapping procedures. . .fight this 
temptation - draw a map! 

Unlike many games where an 
apparently insoluble puzzle bars your 
progress within a few steps of your entry 
point, Red Moon has plenty of locations 
for even the absolute novice to explore 
right from the start. Do not think that this 
implies a beginners game, even 
accomplished adventurers will be 
gnashing their teeth on occasions. For 
those that get totally lost and confused. 
Level Nine offers the best hint sheets in 
the business. These are so laid out that it is 
not easy to read something you wish you 
hadn't! 

Artefacts found soon after entry will 
include the inevitable lamp for 
subsequent exploration in dark and 
dangerous places. Dangerous? Yes! There 
are a number of decidedly aggressive 
creatures just waiting for you to stumble 
by. To be successful you will have to fight 
them. Bare hands are not to be 
recommended, find a useful weapon and 
better still some armour to protect you. 
You start your foray into this other world 
with some 50 'hit points', it is surprising 
how quickly these can be used up. The 
use of Magik is permitted, even 
encouraged. To implement these spells 
you must enter a command of the type 
'CAST ZAP'. Each spell may only be cast 
successfully if you have the object that is 
the 'focus' for that particular spell. 

'CAST ZAP' is used to magically attack 
an enemy but you must have the jewelled 
dagger for it to work. Casting spells also 
uses up some of your 'hit points', so try 
not to be too extravagant with them. 

SAVE and RESTORE your current 
position are also counted as spells! In this 
case no 'focus' is required but it still uses 
up your 'hit points'. A clever dodge this.as 
it stops us making dozens of 'safety saves'. 

Neither can you cast a spell 
successfully if you have iron about your 
person (or at that location). You cannot 
fault the logic, even if it is a little 
frustrating at times! 



The C64 tape version utilizes a 'rapid 
loader' and takes just less than three 
minutes to load this massive program. So, 
even though disc versions are usually 
available the gain is fairly small. 

Level Nine is to be congratulated on 
keeping standards at such a high level for 
such an extended time. ..good luck and 
roll on the next one - but please give me a 
little time to solve this one first! 

Sore fingers... 

Although the range of good software 
grows as time goes by, there are always 
some people who like to 'do their own 
thing'. Obviously if you get that good at it 
we will start reading about your work in 
this column! 

Many others spend enjoyable hours 
pounding their keyboards typing in 
programs gleaned from magazines or 
books. This can often be very, very good 
programming practise. This is the way to 
learn how a program works (often the 
hard but permanent way - by having to 
debug it!). 

It is also often possible to see how to 
improve on the published listing. The 
original programmer was probably 
heavily involved in his program, whereas 
you will be looking at each section in a 
fresh light. 

There are already several books on the 
market that will help you write adventure 
games on the Commodore 64. On the 
other hand, new ones are always 
welcome, you never know what new 
routines you may find! Book is nowadays 
are rarely cheap but in terms of time spent 
at your computer are probably much 
cheaper than the average piece of 
software. Two offerings have come our 
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way recently, one American and one 
British. 

The first is: Golden Flutes & Great 
Escapes by Delton T Horn, published by 
dilithium Press, ISBN 0-88056-051-7. There 
are over 200. Four complete listings are 
given together with hints, tips, flowcharts 



adventure games in a modular form that 
should be understood by the reader. The 
listings are in BASIC and are for text only 
displays. Although I have not keyed any of 
them in, they look reasonably interesting 
if you are just starting out alonK this Dath. 



distributed in the United Kingdom by: 
Holt Saunders Ltd, 1, St Anne's Road, East- 
bourne BN21 3UN. Holt Saunders has a 
number of titles dealing with computers 
and computing, lists of these are 
obtainable from the above address. 



Kingdoms by Bob Liddil, published by 
Virgin Books, ISBN 0-86369-094-7 - 186 
pages cost £5.99. This book is quite 
different to the one above as no 
explanation of each individual program is 
Riven. 




Listings for 15 (!) different adventures 
are given together with a page 
(210x265mm) or so to set the scene for 
each. Again the programs are in BASIC 
and are clearly set out for you to type in. 
The games are presented for you to play 
rather than learn from but the inevitable 
debugging is bound to teach you 
something. 

Both books appear to offer good value 
for money - look out for them and let us 
know how you get on! Both publications 
offer copies of the games on cassette for 
the lazy amongst us! 



10 Write Aa»entu,e Gam, 
Cm^64 




Not for the gentle. . . 




Do you remember Dallas by US Gold? It 
appeared in this country last year and was 
acclaimed by many reviewers at the time. 
If you have not played it, try to get your 
computer shop to demonstrate it for you. 
It is disc based only and has excellent 
giaphics that are called from the disc as 
you proceed. 

What made me think of Dallas is a 
recent issue from Activision - 
Mindshadow. It too is disc based and also 
has good graphics, again called from the 
disc. The plot is novel too. you awake on a 
desert island. . .not knowing who you are! 

The aim of the game is to discover your 
own identity and who left you to perish. . . 
As the storv unfolds vou find vourself 
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DROP. GET, QUICKSAVE and 
QUICKLOAD are all function key 
commands. 

SAVE and LOAD allow you the option 
of 10 different game positions. These may 
be overwritten at any time you change 
your mind throughout the game. 
QUICKSAVE and QUICKLOAD are 
particularly nice features as they allow 
you to save your present position 
'temporarily' at any time you think your 
next move may be your last! 

HELP enlists the assistance of a wise old 
bird - the Condor - why a Condor I do not 
know but he can be darn useful! His help 

din onlv hp pivpn ihrpp timp< <r> m«iL<s 




travelling around the world in search of 
the answers. The program is well con- 
ceived and presented, the puzzles are 
good and the use of the function keys well 
thought out. 

The only thing I have against 
Mindshadow is the underlying need to 
behave in a somewhat underhand 
manner to succeed! As a barbarian 
clobbering trolls or a thief stealing deftly 
through dungeons - I have no qualms. . . 
but striking out with no provocation or 
stealing from a sleeping tramp. . .1 dunno. 
That gripe apart this is a good adventure 
and the use of the function keys make it 
very easy to play. The most used 
commands are immediately at your 
fingertips. SAVE. LOAD, REPEAT. HELP. 



use of his knowledge carefully. You can of 
course start from scratch and use the help 
gained in previous games to reach your 
last position, then get three new HELPs! 

Although there are some devious parts 
to Mindshadow, it is not a very difficult 
game lo play. The number of locations in 
each section is not large and although 
mapping should always be an 
adventurer's first line of attack it is not 
always necessary here. You must solve 
each section before you can proceed, so 
at least you know how you are doing! If 
you are unable to go anywhere else then 
you know you have missed something! 

For all thai. I still do not know who I 
am... there are no prizes to anyone 
making any unkind suggestions! 
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A whole new world awaits you and your 64. The world of 
Prestel. Mlcronet Viewfax, Homelink, Citiservfce, 

This isthe world of product 
reviews, mainframe games, home banking, Business information, 
commodity futures, armchair shopping, real time conversation, 
electronic notice boards, helpful tips, ICPUG, news, Telex-Link, 
Mailbox, Chatline, Gallery etc. This is the world of telesoftware, with 
programmes to download into your 64 and save to disk or tape. 
Many telesoftware programmes are provided free of charge or at 
nominal cost 

Dialog with over 600 massive databases on call and almost 
unlimited information on just about any subject is accessible from 
your 64, together with BT Gold, Easylink, One to One etc, with 
electronic mail, business services and telex facilities. 

You can link to Bulletin Boards in your area for local news, club 
news, letters, jokes, poems, helpful tips, etc. It's a whole new 
experience. 

Take the first step. Make a giant leap for your 64. Communicate 
with Modem House and you'll soon be talking to other '64 users, 
linking to other micros and swapping files, tips, programmes or just 
chatting. 

Modem House are the largest suppliers of Commodore 
communication equipment We also supply complete systems for the 
Pet 2000, 3000, 4000 and 8000 series. 




HOUSE 



The most popular 64 micropack in use today, will link you to 
Prestel. Micronet 800, Viewfax 258, Homelink. Farmlink, CiOservice, 
etc. From Modem House, the complete system is on offer 
at the incredible price of £99.95 inc. VAT, p & p. 

Optional terminal software to link you to BT Gold. Easylink, 
One to One, Dialog and Bulletin Boards is available at £29.95 inc. 
VAT,p&p, 

Complete Commodore 64 micropack 

special price £99.95 Inc. VAT p & p 

for a limited period only. 
Special, special offer, order your 64 micropack now and 
get a FREE quarter's subscription to Micronet 800 and Viewfax 258 
(Prestel Microcomputing!. 

Modem House, lotanthe Drtve, Exeter. Devon EX4 9£A Tel: |0392| 69295 

Please send me „„_ Commodore 64 Micropacklsl £99.95 each 

Optional Terminal Software £29.95 

I enclose £. /Bill my Access No. „„. _ _._ 



Name 



Address 



"-MttlM 



lolanthe Drive, Exeter. Devon EX4 9EA Tel: (0392) 69295 



Telephone No. „ 

Please allow 28 day delivery 

This offer applies only while stocks last 
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3-D GLOOPER 

Supersott £4.95 
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C16/PIU8 4 Joystick optional 

This game, originally on the 64 has now 
been converted to the 16. In effect, the 
game is 3D Pac-man and you are 
actually standing in the maze. The 
scenario is as before. You must collect 



all the blue dots on the floor of the maze 
whilst avoiding the attentions of the 

gloopers. 

These brown creatures patrol me 
maze and will munch you given half a 
chance. There are a number of red dots 
which empower you. for a limited time, 
to munch the gloopers. During this 
period, the gloopers are coloured yellow 
rather than their usual brown. Clear all 
the dots and you move onto another 
screen. 

The screen shows a perspective view 
of the maze walls and side passages. A 
combination of brick patterns and 
coloured shading helps the effect. The 
gloopers are quite simple in design but 
grow nicely in size as you approach 
them. In all a surprisingly neat bit of 
graphics. 

You can examine your immediate 



surrounaings on a minui "<»►* — ■■ — 
appears at the top of the screen. This 
shows the position of dots and gloopers. 
It a glooper starts to approach you. a 
warning sound is given. The keyboard 
or joystick is used to move about 
the maze. You can move at quite a 
speed but this isn't always advisable 
since you can easily turn a corner 
straight into the arms of a glooper. 

In this world of more sophisticated 
software, it's nice to play a simple but 
addictive game. I found Pac-man rather 
tiresome since the whole action is 
visible. In this game, you have no idea 
where the gloopers are This engenders 
a surprising amount of excitement I 
found this game great fun to play and 
quite addictive. The graphtcs are simple 
but most effective. At the price, quite 
good value for money MW 
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SKYFOX 

Ariolasofl £9 95 



C64 

As its title Sky Fox might suggest it is 
about a jet fighter but it's not one of the 
flight simulators that have become 
popular lately, more of an air combat 
simulator. Thus the pilot doesn't have to 
concern himself with all the intricacies 
of take off and landing but can 
concentrate on the important business 
of zapping baddies. 

This brings us onto the game itself. 
The story goes that the baddies have 
tnvaded, either from another country or 
another planet, and are about the usual 
invader - like things such as killing and 
destroying. Your job is. of course, to • 
repel the invaders and save the 
world/country. In order to achieve this 
you are equipped with the Sky Fox 
fighter plane, a weapon capable of 
standing still in the air or zapping along 
at speeds of 3000mph! The Sky Fox 
boasts a 'ull complement of baddie 
blasters ranging from general purpose 
laser guns to the air to air heat-seeking 
mega missiles. 

The screen displays a cockpit view 
that has three large windows and a 
radar display which shows either an all 
round proximity scan or a sort of 
weaponry screen complete with gun 
sights Also available is a direct link to 
the main battle computer at your base. 
When activated this swings out on an 
expanding window to cover the whole 
display. This computer link supplies 
information about the progress of the 
war with the status of various 
installations being displayed so that you 
can judge where you are most urgently 

required. , 

Also in the data banks is a battle plan 
displaying the position and number of 
your foes as well as the locations of 
your base and the other establishments. 
This plan may be used to navigate but 




using the auto pilot is much more fun as 
it will either take you to a specific 
location or it will find the nearest 
zappable baddie and zoom there at 

3000m ph. 

Whilst being great fun and very 
convenient, this auto pilot knows 
nothing of air combat and thus usually 
engages you with the enemy from the 
worst possible position. Combat takes 
two forms. First is the ground force 
consisting of groups of five tanks. These 
appear on the display as tiny little blobs 
on the horizon. At this stage the blobs 
may be disposed of with the lasers very 
easily. This would be a shame however 
because the blobs grow into very 
detailed battle tanks that shoot at you as 
you approach and to miss this would 
spoil the fun. So my advice on the tanks 
would be destroy all but one, fly over 
that admiring the excellent graphics and 
then turn round and blow it to hell! 



The other form of combat is in the 
air as you climb from ground level you 
pass into the cloud layer and the screen 
goes blank. At this point the disk is 
being accessed but I think the cloud 
idea is a nice cover for this. Once 
through you are presented with a view 
of clouds and are in the domain of the 
enemy jet fighters. These usually dont 
appear at all because the auto pilot 
lands you in the fight with the nasties 
behind you. If you do manage to get 
one in front of you don't forget to be 
amazed by the smooth animation of 
such a large and detailed shape before 
you target the heat seeker and despatch 
it to the same fate that the tanks 
suffered. This aside. I should state that 
the air combat is not easy at all and 
look me many goes to get the hang of it. 

The biggest and baddest of all are 
the mother ships. These are like large 
floating cities in the sky. The mother 
ships send out all the other baddies so a 
good plan is to take on the mother ships 
first to prevent them sending out 
replacements tor the tanks and jets that 
you destroy. As big as they are they can 
be taken out by laser work but a lot of 
careful flying is required to get past the 
internal defences and they need to be 
hit a number of times due to their 
armour. Once you have exhausted your 
supplies of missiles and fuel you can 
land at your base to stock up. That is if 

It still exists! 

The game has a large range of 
options such as difficulty levels from 
Novice to Ace of the Base and practice 
levels involving only air or only ground 
combat. Also selectable is the scale ot 
the baddies' attack and the form ot your 
task These have titles such as cornered 
The Alamo and, my personal favourite. 
Massive Onslaught. 
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BEACH-HEAD 

US Gold £9.95 
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C64 - 1 or 2 (oystlcks 

This sequel to the successful Beach- 
Head is not just one game, but tour 
games in one, for one or two players. 

The evil dictator known as the 
Dragon has captured some of your 
men and is holding them hostage in his 
heavily fortified island home. The task of 
the allied forces Is to slorm the island, 



rescue the prisoners and escape with 
them by helicopter. You then do battle 
in single combat with the Dragon 
himself. 

These four screens may be played in 
any order, with three skill levels for 
each. You may choose to play the allied 
troops or the dictator's forces, so many 
permulations are available. 

The attack phase involves landing 
your troops by parachute from a 
helicopter, then advancing them 
individually past two barriers under 
withering machine gun fire. You will lose 
many of your men, and will need to 
sacrifice some for the safety of others. 
Bonus points are scored for successful 
grenade attacks on the machine gun 
position. 

To rescue the hostages you use a 
captured machine gun against a 
bewildering array of forces, all intent on 
killing them. This is nol easy, as the 
tanks and armoured trucks need to be 



hit m exactly the right spot to knock 
them out. 

In the escape stage you fly 
helicopters, loaded with escapees, past 
a series of obstacles while under 
constant fire. You can strike back, and 
you score points for targets destroyed 
as well as soldiers rescued. The Dragon 
sets the difficulty level for each of the 
three sorties, and the highest level is 
really hard! 

Finally, having tracked the Dragon to 
his lair, you engage him in battle with 
wooden spears called Poontas. from 
opposite banks of an underground river. 
You move, duck and jump, and can 
control the spears In flight, making them 
swerve. Four hits win a round, nine of 
which must be played in all. 

A marvellous game - challenging 
throughout, with excellent graphics and 
the best software speech I've heard. It 
deserves to be a great success! 

P.R.B. 



PAINTBOX 
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Audiogenic 








C-16 - joystick optional 

For those who like graphics without 
mathematics. Paintbox is a must for 
Commodore users: I say users as one 
side of the tape Is for the C64 and the 
other for the C-16. 

Loading is fast and efficient and 
the menu display scrolls smoothly along 
the bottom of the screen. At any point 
the menu is instantly accessible by 
pressing the space-bar. The menu 
controls a variety of options including 
saving to tape or disk and a fast erase? 

Now what does the program offer? 
DRAWING is, of course, a standard 
feature using joystick or keyboard. To 
this is added: 

Line - Allows a line to be drawn at any 
angle. 

Lines - draws a series of lines starting 
from where the last one finished. 
Pays - gives a series of lines starting 
from the same point. 
Framing - provides a rectangle of any 
given size at any position on the screen 
white BOX gives a solid rectangle of any 
chosen colour. CIRCLE at any place, 
any size and use DISC to give a colour 
filled circle. 

This sounds pretty much the same as 
usual but, believe me. the use of 
'rubber-banding' technique gives you 
tremendous scope and versatility. 

When we come to PAINTING the full 
colour range is available for filling 
enclosed areas while, in DRAWING 
mode eight options are available from 
very fine line to very thick pen which are 
really excellent. Drawing speed may also 
be controlled. 

For the C64 alone there are extra 



facilities allowing you to copy. SWAP 
and MOVE two pictures around building 
one upon the other. 

Audiogenic has produced here a very 
good, fast acting, easily handled tool 
which can be used to create very 
intricate drawings, picture drawings, 
poster drawings etc. 

Paintbox compares most favourably 



with other graphics utilities and, indeed, 
would be the one of my choice by virtue 
of its speed, scope, ease of handling 
and well written manual; screen colour 
control is likewise excellent. 

A joystick is preferable but keyboard 
control is fully functional and adequate. 

Go to it beginners and advanced 
artists. Well recommended. E.M. 
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C64 — joystick optional 

il you have quick wits, cool hands and 
an iron nerve, then this is a game you 
must buy! You can experience the thrill 
of high-performance motor-cycle racing 
at any of the world's top 10 circuits, 



from Brands Hatch to Daytona, at 
speeds of up to 250 miles per hour. And 
all this from the comfort of your own 
armchair! 

Each ol the circuits is faithfully 
reproduced, with good graphical 
representation of the scenery, the track 
and, of course, the bikes. You race 
against 19 other riders, starting at the 
back of the grid. If you collide with 
another bike you crash, but can set off 
again. Wandering off the roadway slows 
you down too, and eventually makes 
you lose control. 

Your machine is equipped with six 
gears, which you can change up and 
down, and the sound effects 
accompanying gear-changes are most 
realistic. Holding down the fire button 
(or space bar) causes constant 
acceleration. Releasing it slows you 



down, but for heavy braking you will 
need to change down. 

Various options are open to you. In 
addition to the choice of circuit, you 
may select novice, pro or champion skill 
levels, and you are given a preview of 
the chosen track. You may also do as 
many practice laps as you wish, before 
setting off under race conditions. The 
length of the race may be two, fojr or 
six laps. The computer records ths total 
time for the race, and your fastest lap 
time. 

I was impressed with everything 
about this game, it is very well 
programmed, fast and exciting. There ts 
plenty of scope for improving your skill 
by practising, and plenty of variety, it 
sets a standard for motor-cycling games 
which will be difficult to beat. So put on 
your crash-helmet and get started! P.R.B. 



RACING DESTRUCTION SET 



Ariolasoft £14.95 



C64 



9 is s 



Have you ever had the urge to get in a 
powerful car and race round a track as 
quickly as possible? Destruction Set will 
allow you to Indulge all your fantasies and 
more! 

The game consists of two race cars 
on the same track. Each car's progress 
is displayed on a separate window on 
the screen so if one driver gets ahead of 
his opponent he doesn't disappear off 
the screen. The cars are rather like slot 
cars as they will turn corners on their 
own and the only control required is to 
change slots and accelerate. 

So what is the Construction in the ■ 
title for? Well this is because RDS 
allows the user to either choose one of 
about 20 pre-formed race tracks or even 



to make one up himself. This allows alt 
sorts of differing terrains and thus the 
game can change from a Formula One 
at Silverstone to a dirt track rally on the 
moonl 

To enable the cars to race on the 
different surfaces the user can also 
control the design and specification of 
his car. This allows such things as a 
Corvet Stingray with an B.2 litre engine 
right down to a 250cc Bike. 

Care has to be taken when choosing 
a vehicle as it is very easy to construct a 
car that is too heavy to get up the steep 
hills or not powerful enough to get off 
the ice. It is great fun however to pit two 
entirely different cars against each other 
on a variable track and see one catch up 
on the straights due to Its power but 



then fall behind on the hills due to Its 
weight. 

What about the destruction bit, I hear 
you ask? Well this is great fun as well 
because the game offers options to 
carry oil for throwing in the path of your 
opponent and land mines to blow him 
up! The problem with both the oil and 
the mines is that they stay where they 
are and stay nasty as well so it you drop 
a land mine in a place where your 
opponent can't miss it he will blow up. 
but on the next lap if you can't get past 
it, so will you! 

Although the game does a lot of very 
slow disk accessing, I think that It's 
excellent and I recommend It. 

J.G.D 
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KAKTUS 

Su person £4.95 
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CIS/Plus 4 - Joyslick optional 

This is another C64 conversion from 
Supersott. From memory. I don't think 
have been many alterations from 
the original. 

The plot is somewhat unusual in that 
you must protect a cactus from the 
unfriendly attentions of a swarm of 



wasps and hornets. Your efforts are 
hindered by interfering moles and 
vultures. In effect this is a shoot-em-up 
game similar in flavour to centipede but 
with its own attraction. 

On screen you get a side view of the 
cactus and the ground level. You may 
move above or below the ground via 
holes in the ground. The swarm of 
wasps and hornets approach from above 
and fly from side to side slowly moving 
downwards. You must prevent them 
from reaching the base of the cactus 
where they can do the most damage. 

Unfortunately, it isn't a simple matter 
of shooting the wasps. Moles move from 
side to side trying to fill in the holes in 
the ground and cut off your means of 
access. You. of course, can shoot them. 
After screen one. vultures fly across 
dropping eggs. These bounce about and 
will destroy you on contact. 



Graphically, the game is simple with 
limited use of the C16's colour abilities. 
The animation of the wasps is quite 
good but overall the nasties don't really 
look like the creatures they are 
supposed to be. Sound is limited to 
zapping noises although a nice version 
of Lincolnshire Poacher starts the game. 

Whilst this game doesn't break new 
ground in sophistication, it presents a 
real challenge. The first screen is 
deceptively easy, but our friends the 
vultures make life pretty tricky later. 
They seem to aim their eggs accurately 
and the bouncing bomb behaviour of 
the eggs is tricky to judge. 

Overall, not a bad game especially 
bearing in mind the lack of material for 
the C16. The rather primitive graphics 
do the game no favours but it does offer 
a good old fashioned zapping session. 

M.W.C. 



WORD PERFECT 

Supersott £19.95 disk 





C64 

I dare say that a good many owners of 
the 64 have considered the benefits to 
be derived from using a word processor 
but have been deterred by the high price 
of most of the programs currently 
available. 

Even if you don't own a printer, a 
word processor can still be extremely 
useful. How many of you. for instance, 
can sit down to write a letter and get it 
right first time without having to 
rearrange paragraphs, correct spelling 
or syntax errors, or even re-write the 
entire thing, perhaps several times? With 
the aid of a word processor and a little 
typing practice the whole task becomes 
very much easier. Using the screen as a 
sort of electronic note pad, you can 
organise your thoughts and correct any 
errors, all without committing anything 
to paper. 

However, whilst appreciating the 
above, many people will be unable to 
justify the expense of a program which 
although very useful is somewhat limited 
in its application in the home. Word 
Perfect from Supersoft has recently 
been released and seems to be aimed at 
just such a market. The program is 
available in both disk and tape format, 
the disk version being the one reviewed 
here. 

Word Per/eel is a scaled down word 
processor and as such it is suited to any 
of the uses to which you would put a 
typewriter, but with most of the 
advantages of word processing. The 
program loaded quickly and reliably and 
resides in the protected RAM above 
Basic starting at 49152. Most of the 
important features of a word processor 
are there, although some of them such 
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as block move and copy are 
implemented in a somewhat crude 
fashion. You may search for a specific 
word or phrase, centre, underline, set 
tabs and merge previously saved text 
into the current work. You have the 
option of saving your finished document 
to tape of disk. 

Although some of the more usual 
commands are missing, right justify and 
search with replace for instance, I don't 
feel that their absence will cause too 
much inconvenience. 

The program allows the use of a wide 
range of printers although, as with all 
software tht uses a printer, it would be 



prudent to check that your particular set 
up works before buying. 

Word Perfect comes complete with a 
well written 16 page booklet that should 
enable even the novice to quickly get to 
grips with the program. While perhaps 
not suited to serious office work, I feel 
it has a lot to offer the home user. This 
review was written with the aid of Word 
Perfect and I shall continue to use it in 
the future. 

My copy of the manual has an error 
on page eight. To reformat a paragraph 
you should press DELETE in CONTROL 
Mode, not R as stated. 

D.J.T. 
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C64 • joystick 

Although the title is different, this is one 
of the excellent Electronic Arts 
Construction' series. 

The game starts by telling you to 
select a Morph i.e. a basic body type. 
This varies from the Human Homin to 
wasps and strange lion like creatures. 

Next, weapons must be selected to 
arm your particular beast. These range 
from laser rifles and grenades for the 



humans to noxious spit from the worms 
and of course deadly claws from the 
lions. 

Then the creatures travel to the 
teleport chamber where they are left 
whilst the controllers decide what type 
of combat is to be engaged. One owner 
will decide the terrain, and this should 
be chosen to give your creature the 
maximum advantage and your 
opponents the least. So if an owner has 
an amphibious creature he could choose 
a terrain with lots of water thus 
confining his opponent to the land. 

The other owner must try to nullify 
the disadvantages of the terrain by 
selecting the type of combat. The first 
type is the simple destruction combat 
where each player will fight to the death 
with the creatures found in the arena 
and the opponent. 

The second requires flags to be 
collected in order. Each flag is defended 
by an arena creature. 

The third type is called the horde. 



THE GREAT AMERICAN 
COUNTRY ROAD RACE 



C64 

At first glance the Great American Cross 
Country Road Race - T.G.A.CCR.R. 
from now on, coz it takes too long to 
write - is like Audiogenic's Tallegeda, 
but after closer scrutiny I found some 
pleasing additions. 

After you've chosen your route, 
which is at first a touch confusing (it 
reminds me of trying to fathom the 
intricacies of a British Rail time table), 
you are shown the map which roughly 
shows your route between cities and the 
weather conditions you are likely to 
encounter. You can scream across the 
great American countryside/desert/ 
snow plains/etc. etc. from one sprawling 
downtown conurbation like San 
Francisco to another like Washington, 
experiencing sun and snow. 

To practice I chose the US Tour race 
which, as the name suggests, allows you 
to belt right round the continent. 

After the prelims, you're faced 
with the old hat track, down which you 
must guide you low strung speed 
machine. 

You have a certain amount of time to 
get from one check point to the next 
and you're expected to change gear 
using the joystick, while keeping an eye 
on your fuel. If you allow your RPM to 
stay in the 'red-line' too long your 
engine blows up but it doesn't take too 
much skill to avoid this catastrophe. 

Fuel consumption is, I found, another 
story. This particular hazard really 
wound me up. When you run out of gas 
you have to "push" your car to the next 
station. You do this by continually 
pressing the fire button - I actually 



This is when both creatures must work 
together to defeat an invading horde 
that comes from the top of the screen 
and is attempting to reach the bottom. 
The one who kills most hordlings wins. 

As I mentioned, the arena contains 
•Urban Defenders'. In a one player game 
all these creatures are played by the 
computer but in a two player game the 
creature is played by your opponent. So, 
if a creature runs into an urban 
defender, the screen clears to a combat 
screen and the two players battle to the 
death. This is done by selecting 
weapons and blasting the enemy. This 
requires a great deal of dexterity and 
practice is recommended. It the player is 
victorious in his attack on the urban 
defender then the screen changes back 
to the large map and the game goes on. 

Graphics on this game aren't 
stunning but none of the construction 
series are. The game is a different 
matter as it is excellent and I found it 
extremely addictive. D.G.D. 



ision £9.99 




broke my joystick doing this. I believe 
that this would not have been necessary 
if the gas stations were more clearly 
defined, because if you only just miss 
one you've got to go to the next one 
which is 100 miles down the road - 
infuriating! 

The clever touches in this arcade 
game are what make it different. As you 
travel the road, conditions change along 



with the scenery and it gets dark - I 
liked that. If you go too fast you attract 
the attention of the fuzz and they pull 
you over. 

Altogether this is just another road- 
race game and. although clever in 
places with good scrolling graphics. I 
feel that once you've seen one there 
isn't a lot of difference in the rest - but 
this is certainly one of the best. D.F. 
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Ariolasott £14.95 
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C64 * Joystick 

The Idea behind the construction series 
of games is that people could adapt a 
game which they liked to take on many 
different forms and levels of difficulty so 
as to improve their enjoyment. This isn't 
the case with Pinball C S. 

The game is a representation of a 
pinball board which can be set up to the 
user's requirements. All manner of 
bouncers, flippers and fancy bits may be 
put together on the board in an attempt to 
find an interesting game. This is where the 
construction bit falls down as most fun is 
to be had in the construction of weird and 



wonderful boards. Playing these boards 
soon becomes very boring indeed! As all 
the fun in real pinball is in the flashing 
lights and ping, ping, ping noise. 

Anyway, back to the game. As I 
mentioned, the game allows use of 
bumpers and flippers. It also has many 
advanced features such as a ball hopper 
which collects balls, until it's full at which 
point it releases them all putting four balls 
in play at once. Another interesting feature 
is the AND gate that allows special scores 
to be awarded for good play. 

All in all I was disappointed by this. 
Nice idea but a boring game. J.G.D. 



THE RATS 

Hodder and Stoughton £7.95 




^Herberts 

T H£ RATS 



C64 

As reported in the October issue of Your 
Commodore, Hodder and Stoughton 
Software has released the computer 
version of that now age old horror story 
The Rats by James Herbert. 

When I got my grubby little paws on. 
the game I could hardly wait to get it in 
the C2N and have a look - you see. 



dear reader, I'd read the book and seen 
the film already and thought they were 
both terrific - so maybe I expected too 
much. 

In the game you take the roles of 
various characters in the original story - 
except the rats, of course. You can, for 
instance, be anyone from the controller 
of defence to a cobbler which, 
altogether, adds lo the general 
confusion, and this, in my opinion, is the 
only atmosphere generated by this 
attempt to mix all the aspects of micro- 
gamesmanship in one package. I think 
it's a shame that the game didn't live up 
to my expectations especially after the 
stunning graphics that are displayed 
after the animation sequence. 

The game is staged in central 
London where the rats are swiftly taking 
over and it's your task, with the help of 
the defence forces and various wizardry 
from the research and development 
people, to contain the hideous menace 



within London, whilst keeping the three 
main characters alive and not al the 
expense of every last man jack in your 
defence forces. To fail in any part 
results in defeat and some supposedly 
horrifying graphics. 

To effect the destruction of the rats 
you are given various tools and 
professional forces to help you and you 
must put into action Foskins (one of 
your main characters) strategic battle to 
do this. This is done by moving a 
cursor again to pick the words (your 
choice of which is maddeningly limited) 
to build the command. Needless to say, 
I was shredded very quickly and often. 

It is a good idea, but with the lack of 
atmosphere and the limitations imposed 
by the program I found it hard work and 
it lost my interest very quickly. Like I 
said, I'd read the book, seen the film, 
and now I've played the game. I think I 
would have prefered the pie!— 

D.F. 
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C64 - Joystick 

If you find it exciting to have a cold bath 
on a foggy Sunday afternoon In 
November, while Chopin's funeral march 
plays in the background, then this is the 
game for you! According to the rather 
ungrammatical cassette insert, your 



mouth will be dry and your arms 
shaking -with excitement — lies, all of it 
lies! 

The idea of the game is that you 
paddle a canoe in the World White 
Water Slalom Championship. This 
involves two forays along a stretch of 
winding river, with 25 gates to negotiate, 
remembering to keep the white pole to 
your left at each. The control you have 
over your craft is minimal. Attempting to 
turn usually ends with you ramming the 
bank, at which point the program is as 
likely as not to seize up altogether. 

The "superb scrolling 3D" graphics, 
mentioned on the packaging, are in fact 
crude and jerky, with the prow of your 
boat bobbing up and down in the 
foreground and slalom gates appearing, 
as if by magic, just in front of you. 
Making headway against the current is 



practically impossible, and response to 
the joystick is very slow indeed. The 
game proceeds at the pace of a snail 
with corns! 

The only sound-effect, apart from a 
discordant fanfare at the start, is like 
nothing so much as brushing a pair of 
shoes, or perhaps a veteran washing- 
machine. There is a high-score table, of 
a sort, but even that is mud-coloured. 
The inlay asks "Will you have the 
stamina and strength to last the whole 
course?" - I very much doubt it 1 

If I seem rather unkind, it is well 
deserved. This is the poorest game I 
have seen for a long time, and the best 
thing to do with it is cover the tabs on 
the cassette and record something else 
over the top. Unless, perhaps, you suffer 
from insomnia? 

P.R.B. 



E 



Education 




THIS MONTH I INTEND TO DISCUSS 
THE value of adventures as 
educational aids. In contrast to the 
monthly adventure columnist, with 
whom I don't want tocompete. I will 
be advising the uninitiated, not 
preaching to the converted. 

Many parents feel that programs 
other than educational software 
cannot be of any. benefit to their 
children. This is simply untrue since 
we learn something no matter what 
task we're performing. The noisiest 
shoot the alien game may seem 
pointless but it does teach eye-hand 
co-ordination and helps improve 
reaction times. Adventures are a 
more subtle means of combining 
enjoyment with learning. 

Before diving into the material, it 
would be best to try to describe what 
is meant by an adventure. Initially, 
adventures were simply word-games 
programmed on main frame 
computers. With the development of 
home micros, the games have 
changed form. First the text acquired 
graphics, then animation and 
interaction was developed and finally 
arcade/real time features appeared. 
All offer similar benefits albeit in 
differing proportions. 

Most adventures involve placing 
the player, or his alter-ego. in an 
artificial scenario. By use of various 
forms of instruction, the player 
endeavours to solve certain problems 
or achieve certain goals. The scenario 
can basically be anywhere and can be 
mapped on a piece of paper. A 
building, for example, can be drawn 
in terms of rooms and passages. 

The first task usually attempted in 
an adventure is to map, by 
exploration, the area where you find 
yourself - just as you would in real 
life. This means that you may need to 
know such concepts as the points of 
the compass and left, right etc. The 
scenario is normally too complex to 
memorise, forcing you to draw some 
form of map. Again this is a tricky task 



(Pet 



involving the manipulation of spatial 
concepts. 

The mapping operations and the 
actual solution of the game need a 
rather special form of skill - the ability 
to think logically and apply lateral 
reasoning. A simple example is how 
to get past a fire breathing serpent 
which blocks your way when you're 
carrying a sword, a bucket of water 
and wearing running shoes. You 
could: Kill the dragon; put his fire out 
with the water; out run him; or use 
your map and find another route. 

The problem is to find the correct 
solution and the means to achieve it 
using thought, trial and error and 
patience. All useful skills for real life. 

Most of the best adventures use 
text to convey information and 
accept instructions. These processes 
will help improve reading, increase 
vocabulary, spelling, comprehension 
and creative writing but not to an 
extreme degree. 

That's the boring bit out of the 
way, let us look at what's available. It 
might be easiest to deal with them in 
rough age groups (this list is not 
exhaustive, simply a guide). 



The Magic Sword (Database 
Publications) is a fairy tale book plus a 
simple adventure. The adventure 
uses simple text with graphics and the 
instructions are mostly key 
commands. You must find the prince 
(who has been turned into a frog) so 
that he can save Princess Poppy from 
the wicked witch. 

Danger Mouse in ihe Black Forest 
Chateau (Creative Sparks) is a 
graphics/ text adventure with menu 
driven command structure. There are 
lots of silly puns and great fun, pretty 
too. Help Danger Mouse save the 
world from the Pi-beam. 

Early Secondary (and Smart 
Little-Uns) 

This age group seems to prefer 
arcade type action and there are a 



range of tough graphics-only games 
lo c hoose from. All of these require 
problem solving and lateral thought. 
Some worthy titles include: 
Impossible Mission (Epyx). an arcade 
style game requiring both physical 
and mental agility; Staff of Karnath 
(Ultimate), a magic type game 
involving exploration of a tomb and 
(he fighting of foes with magic; Flidon 
(Orpheus) in which you guide the 
fairy on her search for magic potions 
and plants; Dungeons of Sa 
(Quicksilva), search the dungeons, 
find the treasure kill the nasties; 
Shadowfire (Beyond) uses advanced 
graphics techniques. You control an 
inter-galactic 'A' team trying to 
rescue an ambassador; Tir Na Nog 
(Gargoyle), a Celtic legend in which 
you help the hero find the Seal of 
Calum; Exodus: Ultima ///(US Gold). 
Dragons and Dungeons style, you 
lead your band of heroes on a quest. 

Teens to Old-Uns 



The most challenging games tend to 
be text or text/graphics adventures. 
Whilst graphics help brighten up a 
game, you should be aware that the 
pictures only rarely give clues to the 
solution of the game. The list of such 
games is endless. There are some 
excellent software houses who are 
almost guaranteed to produce 
excellent games. 
Those of note are: 
Infocom - disk only, heavy use of 
detailed and absorbing text - a sense 
of humour vital. Those worth looking 
at are the Zork Trilogy (wizards and 
dungeons), Sfarcross and Suspended 
(science fiction) and Hitch Hiker's 
Guide lo the Galaxy (humorous). 
Level Nine - early games text only, 
later games use graphics. Complex 
games with many locations - text 
compression ensures detailed 
descriptions. 

Adventure International - not the 

most complex games but have a very 

high content of puzzles. Great variety 

covering many types of scenario. 

Later games include Gremlins and 

Incredible Hulk. 

Individual games of note are: 

The Hobhit (Melbourne House) - 

on the book, quite lough. 

Twin Kingdom Valley (Bug Byte) - 

superb graphics, complex and quite 

tough. 

Fourth Protocol (Hutchinson) - 
amazing graphics, needs deep 
thought and a devious mind. 
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me ULTimme ennRncemenT 
to vour commoDORe 



• 105cpsuni/ 
bidirectional logic 
seeking 

• Supports Commodore 
82-character graphics set, 
plus 96-character ASCII 
with true descenders 



• Ten print modes, 
including standard, bold, 
expanded, condensed, 
emphasised, italics and 
super/ subscript 

• Commodore 64 and 
VIC serial interfaces 



• Four international 
character sets - USA, UK, 
France and Germany plus 
Spanish and 
Scandinavian options 

• 4" to 10" wide paper, 
traction or friction drive 



• Super quiet 

• One million character 
ribbon life 

• Plus Epson code 
compatibility 




Advanced design features unique to the 
Rileman C f give you big, fasl, printer 
performance with Commodore graphics, 
in a super-compact, ready to use, portable 
desktop unit - making it first choice for your 
Commodore system. 

A revolutionary front-loading design B 
eliminates paper teed problems, and any 
weight of paper - even card - can be used. 

The Riteman C+ also gives you a super- 
compact printer footprint A built-in 
collapsible stand enables all - — - 
paper to be stored under the 
printer, giving you 50% more ; w=rwi c 
desk space. Vflfe* 1 ' 
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C.lloh Electronics Co. Ltd.. M 

Boacon House, 26/28 Worplo Road, | 

I OIKlOM SWUM I I 

fel 01 946 4060 l - B95&616 ^^^^■a 

■' ■ M . i ...i ■•■ ... . „l 



I want to know more about the Riteman C+, 
please rush me a datapacK. 

(Please indicate: EndUserD DealerD OEM □) 



Company: 
Address: _ 
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Nick Hampshire adds] 
more commands to~"| 



your ever-increasing 



Basic. 



CHANGE 

1000 CHANGE JSR RESVAR ; RESET LINE LINKS 



IN LAST MONTH'S ISSUE I 
gave all the initialisation and 
wedge routines needed to add 
extra commands to the Basic of 
a C64 computer. Also included 
in that article was a single 
command CTL. In this second 
article I am giving Jour new 
commands. APPEND, CHANGE, 
DUMP and FIND. These are 
very useful 'toolkit type 
commands for editing a pro- 
gram and are consequently all 
used in direct mode. 

These four new commands 
all require the wedge and 
initialisation code - given last 
month - to be present in 
memory at the correct 
locations and that their 
command names and entry 
points are stored in the correct 
tables. It should also be noted 
that all these commands use 
common routines within each 
other and should therefore 
always be used as a set. To 
ensure that you have these 
correctly positioned the Basic 
loader at the end of this article 
is a repeat of last month's with 
the three new commands 
added. 

CHANCE 



Abbreviated entry: C(shift)H 
Affected Basic abbreviations: 

CHRS-CH (shift)R 

Token: Hex SEE, S06 Decimal 

E 238,6 
Mode*: Direct and program 
Recommended mode: Direct 
only 

Purpose: To change all 
occurrences of a string or 
command to something else. 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
10B0 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
U80 
1190 



JSR FIND14 ; GET CURRENT CHAR 
STA 159 ;ST0RE IN FLA6 
LDX MOO 

JSR FIND03 ; GET SEARCH STRING 
LDX MOO 

JSR CHAN07 :6ET STRING TO CHANGE 

ST I $FC : STORE LENGTH OF CHAN6E STRING 

JSR F1ND05 ;SETUP POINTERS 

SEI 

LDA $0300 
STA FINDER 
LDA $0301 
STA FINDER+1 

LDA KFINDU '.ERROR LINK TO RTS 



STA $0300 
LDA DFINDll 
STA $0301 
CLI 

JSR FIND06 ; FIND STRING 
1200 CHAN01 jr.P CHAN03 ; CHANGE 
1210 CHAN02 JSR FIND12 ;L!ST LINE 
JSR FIND07 : FIND STRING 
JHP CHAN01 ; AND REPEAT 



j LENGTH OF CHANGE STRING 



1220 
1230 
1240 f 

1250 CHAN03 LDA $FC 
1260 SEC 

1270 SBC $22 LENGTH OF FIND 
12B0 BEQ CHAN04 ;THEY ARE EQUAL 
1290 J HP CHAN10 ;ELSE CHANGE SUE 
1300 CHAN04 LDY $23 ; INDEX TO LINE 
1310 LDX l$40 -.INDEX TO CHAN6E STRING 
1320 LDA $01 

1330 AND MFE ;0UT BASIC SOU 
1340 STA $01 

1350 CHAN05 LDA $BF40.X ;GET CHANGE CHAP 
1360 BEQ CHAN06 ;END OF STRING 
1370 STA ($57). Y ; REPLACE CHAP 
13B0 INK : NEXT CHAR 
1390 1MV ;NEXT BYTE 
1400 JMP CHAN05 ;AND AGAIN 
1410 CHAN06 LDfl $01 
1420 0RA M0I ;IN BASIC R0K 
1430 STA $01 
1440 DEY 

1450 STY $23 ;ST0RE LINE INDEX 
1460 JHP CHAN02 ;D0 NEXT FIND 



1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 
1580 

1390 

1600 

1610 

1620 

1630 

1640 

165C 

1660 

1670 

1680 

1690 

1700 

1710 

1720 



173 



CHAN07 JSR FIND13 ; GET NEXT CHAR 
CUP $59 ; IS IT THE FLAG* 7 
BEQ CHAN09 ;YES, GET STRING 
JHP $AF08 

CHAN08 JSP FIND13 ;GET NEXT CHAR 
BEQ CHAN09 ; END OF LINE 
CUP $59 ;END OF STRING? 
BEQ CHAN09 : YES 
STA $8FB0,X ; ST ORE CHAR 
INX 

CPX M40 ; STRING TOO LONG? 
ENE CHAN0B ;NC 
LDX Ml? :STRIN5 TOO LONE 
JKP IA437 iOLTP'JT ERROR 
CHAN0? LDA MOO ;STRING TERMINATOR 
STA $BFB0,X ;S*QRE IT 
RTS 



CHAN10 LDY MC0 
LDA t$57M iSET LINE! LC 
STA $14 ;STCRE IT 
I NY 

LDA ($57). Y fEEl U«l HI 
S T A $15 ; STORE I" 
LDX MOO 
CHAN 11 W 
CPY $23 -.REACHED STRING" 
BES CHAN 12 :YES. IMSER* ! T 
LDA !$5?:.Y ?SET ROMM BYTS 
STA $0200. X : STORE Hi WFfffi 
INX 

CPX M56 ; BUFFER TCC LARGE" 
BNE CHAN11 :ND T YE T 
CMAN12 LDA $01 
AND MFE ;QUT BASIC ROW 
STA $01 
LDY MCC 

CHAN13 LDA $Bf90.Y {SET CHANGE S 
BEC CHAK1* (EM OF STRING 
STA $0200.X jSTOFE IN BUFFER 
INX : NEXT CHAP 
I NY ;ASD PRCGPAH BYTE 
DPI M5? :END OF BUFFER? 
BNE CHAN 13 ;NC 
CHAN 14 LDA $01 
ORA M01 !H SASIC ROM 



SO 
1740 
1750 
1760 

:??c 

1780 
1790 
1800 
1310 
1520 
1830 
1840 
1850 
I860 
I97C 
1BS0 
1390 
1900 
1910 
1920 
193C 




Programming 



1940 


STA $01 


2240 


LDA KCHAK17 iBASIC WAR." S ? ART 




1950 


LDA $23 ; CALCULATE START 


2250 


STA $0302 ; RE-ENTRY POINT 




I960 


CLC iQF REST OF PRQ6RAM LINE 


2260 


LDA l:CHANI7 




1970 


ADC $22 | AFTER INSERTING THE 


2270 


S'A $030! 




I960 


TAY :CHAN5E STRING 




JSP FIND15 (SAVE PDIHTEfcS ETC 




199C 


LDA $23 


22°0 


LDY $08 :5E T POINTER 




2000 


pi p 


2300 


:* c $A4A4 :*NSERT PKSRAK LINE 




2010 


ADC $FC 


:::o chaw: lda chanst :Res t ? c e w* s t a«t 


vechp 


2020 


STA $23 


::2C 


: T A $C!C2 




2030 


DEC $23 




LDA CHANST*! 




2040 


CHAN 15 LDA ($57), Y ;GET PRDBRfiff BYTE 


2340 


S T A $0303 




2050 


STA $0200 J ; STORE IN BUFFER 


2330 


JSR FINCli : RESTORE c 0 INTERS E T C 




2060 


I NY ; NEXT BYTE 


2360 


LDA $57 ;LAS T LINS? 




2070 


INI :NEXT CHAP 


"70 


CMP $2D 




2080 


CMP l$0C :END OF LINE 7 


"'OH 


BNE CHAN IB :NOT YET 




2090 


BEO CHAN16 ; YES 


::°o 


LDA $58 




£100 


CPX t$*8 ;END OF BUFFER" 


2400 


CMP $2E 




2110 


BNE CHAN15 ;NOT YE t 


2410 


BE2 CHAN20 : YES 




2120 


LDA l$00 ; ZERO IF END OF BUFFER 


2420 CHAN18 LDA CHANLN :DID WE 2ELE T S 




2130 


STA $0200, X jSTQRE IT 


2430 


CMP MCI iWHOLE LINE" 




2140 


IHI 




PES CHAN!* :YES 




2150 


CHANlfi STX CHANLN ;STOPE LENGTH OF 


2450 


JMP CHAN02 |NQ, LIST AND DC NEXT 




2160 


TXA ; LINE 


24 £0 


CHAN 19 ldy j INDEX t 0 NEXT line 




2170 


CLC 


Z47? 


STY $23 




21B0 


ADC #$04 


2480 


LDX MOC 




2190 


STA $06 


2490 


JMP CHAN02*3 :DD NEXT K1TH0UT LIST 




2200 


LDA $0302 


2500 CHAN20 JMP ^INDIO ;EX!T CHANGE 




2210 


STA CHANST 


2! 10 CHANLN .BYT 0 




2220 


LDA $0303 





CHANS' . WGR C 




2230 


STA CHANST +! 


2530 


■ EKD 


m 



DUMP 








1000 DUMP LDA $2E ;5E" STAR T 3 C V«IABLES 


1240 


LDY #$02 ;SET POINTER TC VAL 




1010 STA $60 ; AND S'CRE IN REQUIRED 


1250 


LDA ($5F).Y ;&ET LO 




1020 LDA $2D ; LOCATIONS 


1260 


PHA 




1030 STA $5F 


1270 


I NY 




1040 j 


1280 


LDA ($5F).Y ;5ET HI 




1050 DUHP01 SEC ; START OF "A IN LOOP 


1290 


TAY 




1Q60 SBC $2F ; END OF VARIABLES" 


1300 


PLA 




1070 LDA $60 


1310 


JSR $B391 :FIX-FLOAT 




10BC SBC $3C 


1320 


JSR $BDDD jFLQAT-ASCII 




1090 BCC DUNP02 ;N0 


1330 


JSR $AB1E ;PRINT IT 




1100 JNP DUMP 1 7 ;YES, DISPLAY ARRAY DIMS 


1340 


JMP DUMP07 ;DC NEXT VAR 




1110 : 


1350 


■ 




1120 DUHPQ2 JSR DUMP 1 2 ;5E* VAR NAME 


1360 :REAL VARIABLE 




1130 LDA $25 :REAL? 


1370 






1140 BEQ DUHP03 ;YES 


1380 DUMP03 LDA l$20 




1150 CMP KOI ; FUNCTION" 


1390 


JSR $FFD2 ;PRINT S P ACE 




1160 BEQ DUMP2S ;YES 


1400 


JSR DUMP 15 ;PAD NAME 




1170 CMP l$02 i STRING" 


1410 


LDA t$3D 




1180 BEQ DUMP04 ;YES 


1420 


JSP $FFD2 ;PRINT 




1190 LDA l$25 ;NUST BE INTE5ER 


1430 


JSR $B!B5 ;GET ADDRESS OF VAR 




1200 JSR $FFD2 ;PRINT 'V 


1440 


LDA $47 : INTO A AND Y 




12W JSR DUHP15 : ANY EXTRA SPACES 


1450 


LDY $46 




1220 LDA l$3D 


1460 


JSR $BBA2 jNEfl-FACtl 




1230 JSR $FFD2 ;PRINT 


1470 


JSR $BDDD ; FLOAT-ASCII 


► 



Each line that is changed is 
listed if there is anything left to 
list. 

Syntax: CHANGE dstrl ddstr2d 
- where d is a delimiter 
character that does not appear 
in either of the strings (strl or 
str2). 

Errors: Syntax error - if the 
format is not as above. String 
too long - if either strl or str2 
are longer than 40 characters. 
Use: CHANGE has a number of 
uses. An example would be: 

CHANGE PRINT PRINTff4, 

To change all occurrences of 
'PRINT' to 'PRINTH4,', or: 

CHANGE "PRINT""PRINT#4." 

which will change all occur- 
rences of the text 'PRINT' to the 
text 'PRINT«4,\ 
Note: Not all delimeter 
characters will work in all cases, 
for example: 

CHANGE /REM/// 

As the character '/' has two 
values the first is the token for 
divide and the second is just 
the A5CII slash character. 

The same is true of DATA. 
Other characters that will have 
the same effect are: ■ '. 



Routine entry point: S86BB 
Routine operation: CHANGE 
uses most of the FIND routines 
to find strl and list the line. 

CHANGE reads in the 
delimiter byte and stores it 
away. The string to be changed 
is then read in until the second 
delimiter character is reached 
and stored. The next character 
is checked to see that it equals 
the delimiter character and if 
so the string to change to is 
read in until the delimiter 
character is found again ox the 
end of command. 

The rest of the routine is just 
a loop finding all occurrences, 
changing them and listing 
until the end of the program. 

The actual routine that 
changes the string uses the 
Basic input buffer and the Basic 
routines to change a line. The 
routine copies the line up to 
strl into the buffer, the change 
string <str2) is then copied to 
the buffer and the remainder 
of the line is copied over. The 
pointers are then set so that the 
next byte to check is the one 
following str2. 




E 
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DUMP 

Abbreviated entry: D(shift)U 
Affected Basic abbreviations: 

None 

Token: Hex SEE, $0C Decimal 
238.12 

Modes: Direct and program 
Recommended mode: Direct 
Purpose: To display the values 
of all simple variations, name 
(unctions, and display the 
dimensions of arrays. 
Syntax: DUMP 
Errors: None 

Use: For de-bugging Basic 
programs, the DUMPcommand 
may be used after the program 
has run to get a list of all 
variables and their values. As an 
added bonus, not found in any 
other DUMP command for the 
Commodore 64, all array 
dimensions are also given. The 
DUMP command will also 
display function names. 
Routine entry point: $8B02 
Routine operation: The DUMP 
routine sets a pointer to the 
start of variables and checks for 
the end of variables. If it does 
not find any, the variable name 
is read in and displayed, the 
variable type is determined, 
and the display is produced 
according to which type Is 
required. When all simple 
variables have been processed, 
arrays are handled. The array 
names are read and displayed 
in the same way as the simple 
variables and the number of 
dimensions read off. The 
pointer is then set to the end of 
the dimension entries and, 
reading backwards, the 
dimensions are read and 
isplayed. 

FIND 

Abbreviated entry: F(shift)l 
Affected Basic abbreviations: 

None 

Token: Hex $EE,$0E Decimal 
238,14 

es: Direct and program 
mended mode: Direct 






rpose: To find all occurren- 
of a string or command 
inside a Basic program. 
Syntax: FIND string - where d is 
the delimiter character as in 
CHANGE. 

Errors: Syntax error - if the 
syntax is not as above. String 
too long - if the string is longer 
than 40 characters. 
Use: FIND is another useful 
outine for de-bugging and 



DUMP 

1480 JSP $BDDA sPRINT NUMBER 
1490 JMP DUMP07 ;D0 NEXT VAP 
1500 ; 

1510 ; FUNCTION 
1520 : 

1530 DUMP26 JSR DUMP 15 ;PAD NAME 
1540 LDA KFUMCTT (HHKT TO 
1550 LDY DFUHCTT ; 'FUNCTION* 
1560 JSR SAB1E :PRINT STRING 

1570 JMF WKP07 ;D3 NEXT VAF. 
1520 FUNCTT .BYT • = FUNCTION'. $00 
1590 : 

1600 ;STRIN5 VARIABLE 
• ii r- . 

1620 DW04 LDX 1*03 :L30P TO PRIST '5= "' 
153? DifflPW LDA MM?*., I 

1640 :ss $ff:: 
1650 zn «c: 

•AM 3NE DLW0& 

1670 JSR 9UHP1S :PAD FCR NAME 

16BC DUMP06 DEX 

B P L D'JM e 05 : COMPLETE '-23° 
LDY 1104 :5E* A2DPE3S OF STRIKE 



:7« 

* I wv 

1760 
1'80 



iMC 
1700 

1710 LDA ($5*).Y 

1720 S'A 123 
1730 0EY 

ISA [%Zf),i 

sta $22 

DEY 

LDA !$5FJ.Y sLENSTH 
JSR IAB24 :°P!NT STRING FROM ($22: 
1790 LDA M22 I AND LENGTH IS .A 
1B00 JSR $FFD2 sPRINT 

iiio-s 

1320 j PRINT CARRIAGE RETURN AND DC NEXT 
1930 : 

1B40 DUMF07 LDA HOE 
!85C JSP $FFD2 '.PRINT RETURN 
1360 DL'NPOB JSR SFFEl sS'OP KEY? 
1970 BNE DUHP10 :NQ 
:BB0 2UHPG? RTS sEXIT TO 'READY' 
:590 DUWP10 CLC :?!0VE to next VAR 
1900 LDA I5F 
ADC H07 
STA $5F 



WW 



. . - . 



BCC DUMP 11 
EN! 

I960 OUNPU S T X $60 

1970 m DUHPC1 :D0 NEXT VAF 

!?B0 ; 

1990 s GET AND PRINT VAR NAME 

2000 : 

2010 DUMP 12 LDY HOC :SET VARIABLE TYPE 
2C20 STY $25 ; AND NAME 

2030 I NY 

2040 DUMP 13 LDA ($5FJ.Y sGET BYTE 





2050 ASL A :TY C E BIT INTO TEMP 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
215C 
2160 
2170 : 

21B0 ;PAD GUT NAME IF ONLY 1 BYTE LCNG 
2190 : 



POL $25 

LSR A ; RESTORE NAME BYTE 
STA $0045,Y :S T 0RE NAME BYTE 
DEY 

BPL DUMP 13 

LDA $45 ; PRINT NAME 

JSR $FFD2 

LDA $46 :2ND BYTE" 
BEQ DUMP 14 :NQ 
JSR $FFD2 sYES. PRINT IT 
BUMF14 R r S s DONE 



"200 



2210 
2220 

:::: 

227C 
2220 
2290 
2300 
2310 
2320 
2330 
2340 

23-C 
23 7 0 
2330 
2390 
240C 
2410 
2420 
2430 
2440 
2*50 
2460 
2470 
2480 
2490 
25C0 
2510 
2520 
2530 
254C 
2550 
2560 
2570 
' 2580 
2590 
2600 
2610 



DUMP 15 LDA $46 ; 2ND BYTE* 1 
BNE DUHP16 ; YES. DON'T PAD 
LDA l$20 ; ELSE PAD KITH SPACE 
JSR $"D2 : PRINT 
DL'S'Pli "TS ;22NE 

i DISPLAY AFRAY NAMES ASS DIMENSIONS 

:0NLY 

mil LDA MOD ; SEPARATE NORMAL 
JSP $FF?2 : VARS FROM ARRAYS KITH 
LDA $2F : A CARRIAGE RETURN 
STA $5F ;SE* P3XKTER "2 1ST 
LDA $30 : ARRAY 
STA $60 

* 

DUMP'S LDA $60 jEW OF ARRAYS? 
CMP $32 
BNE DUMP 19 iNO 
LDA $5' 
CMP $31 
BE2 DUCP09 



DUMP 19 JSR $FFE1 sSTCP KEY? 

BEC DUMP09 (YES, EI IT 

JSR DUMP 12 ) BET AND PSIMT NAME 

LDA $25 iNHICH TYPE" 

BED DUMP21 sREAL 

CMP 1*02 ;S T RING" 

BNE DUMP20 :NC, ARRAY IS IH7EKR 

LDA #$24 :CHAR '$' 

, BYT $2C sSKIP 2 BYTES 
DUMP20 LDA l$25 ;CHAR T 

.BYT $2C (SKIP 2 BYTES 
DUMP21 LDA l$2C sCHAP ' * 

JSR $F^D2 :°PINT l" 

JSR DUMP15 

LDA H20 

JSR $F="D2 :0NE EXTRA SPACE 
LDA #$28 :CHAP '(' 

jsr $ffd2 \mr IT 

LDA $5F 




Programming 



DUMP 



242C 
2630 

2650 
2660 

^ - 

2680 
2690 

2700 
2?!C 



27«0 

2750 

2TtC 

2770 

2760 

2790 

2890 

29*0 

- . ~ . 

2830 

2640 

2S50 

2960 

2870 

2B8C 

2900 



ADC H03 ;SE T WINTER T C END 
3 T ft $FB ; OF ARRAY EN T RY FOP 
LDA 160 : DISPLAY CF DISS 
ADC HOC 
STA $FC 

t$c: 

;$F&>.Y il CF DIMENSIONS 
$FD 
•100 
i-E 

$FD : T I«ES 2 
IFE 

*FD :PLUS END VALL'E 



LDY 
LSA 
STA 
LDA 
S T A 
ASL 
ROL 
LDA 
CLD 
ADC 
STA 
LDA 
ADC 
STA 



IFB 

$f: 

JFC 
SFE 



DU-P22 LDY MOO :6ET DIMENSION VALUE 



LDA flFDJ.Y 



sta disens*: 

MY 

LDA f *FD> , Y 
S'P DIKENS 

DEC DUOS*: 



-Of 

p ■ i» ■ 

* ■ 

2990 



lkpc: sec :i«ns 

"rE\:*l : PRINT NL'ISEP 
LSI DI*EXS : IK .AfHI\ .X'LC! 
L3Y $5F tSAVE ARRAY F?IffTE : 

LDY ti$ 

- • i#i.....O . 

JSR $BDC2 

LDY DIHENS ; RESTORE ARRAY PCIKTES 
STY I5F 



:::: 
:o!o 

3040 

. . - . 

3060 
3070 
7080 

■ v > v 
riVv 

3110 

::20 

3130 
3140 
7150 
7160 
7170 
3190 
3190 
3200 
3210 
j 

. • . v 

7240 



LDY DISENSM 
STY $£C 

SEC (SUBTRACT 2 FRC*! 

LDA IFD : MKEKSIW PC INTER 

sbc no: 

STA $FD 
LDA $FE 

sb: hoc 

STA trZ 

nff $f: ;ens o c array? 

BSE BUMP24 :N0 
IDA t~: 
CP IFS 

8E2 BLTF25 :YS= 

DLHP24 LDA t«2C ; CHAR y 
JSR $FF22 : 0 R:KT IT 
JSP DUHP22 :D0 NEX T ELEMENT 

LDY HOT :S" LENGTH DF 
LDA rttFJ.Y ; ARRAY ENTRY 



3 i 



A IFS 



DEY 

LDA (!SF),Y 



LI — 



3260 ADC $5F ;ANC ADD T C ARRAY 

327C STA $5F ; PG INTER 

3230 LDA $60 

3290 ADC $FP 

7300 STA 560 

3310 LDA «29 : CHAR 'J* 

3320 JSR SFFD2 : PRINT IT 

LSA MOD : CARRIAGE RETURN 
JSR SFFD2 : PRINT IT 
JflP DUKP1B ;2C NEXT ARRAY 
DIHENS .NOR 0 

dhhtbl «byt i::.$2c,i::,$:4 

.EfiD 



3330 
3340 
335C 
3360 
3370 
7380 




FIND 






1000 


FIND JSR FIND14 ;GET CHARACTER 


1130 STA $0301 




1010 


STA $59 ; STORE IN FLAG 


1140 CLI 




1020 


LDX MOO 


1150 JSR FIND06 ; FIND STRING 




1030 


JSR CIND03 ; BET SEARCH STRING 


1160 FINDOi JSR FIND12 :L!ST LINE 




1040 


JSR FIND05 :SET'JP POINTERS 


1170 JSR FIND07 ; FIND STRING 




1050 


se: 


1180 JMP FINDOI ; AND REPEAT 




1060 


LDA $0300 


1190 ; 




1070 


STA FINDER 


1200 FIND02 JflP $AF08 ; SEND SYNTAX ERROR 




1080 


LDA $0301 


1210 : 




1090 


STA FINDER-1 


1220 FIND03 JSR FIND13 ;5ET A CHARACTER 




1100 


LDA KFIHD11 ; ERROR LINK TO RTS 


1230 BEQ FIND02 ; END OF LINE 




1110 


STA $0300 


1240 CNP $59 ; END OF STRIN6? 




1120 


LDA i-FINDll 


1250 BEQ FIND04 ;YES, COMPLETE 


► 



checking Basic programs, for 
example: 

FIND PRINT 

which will find and list all tines 
containing the command 
PRINT. If PRINT occurs more 
than once on a line, the line will 
be listed each time it is found 
with the exception of the last 
lines where the line will be 
listed only once. 
Routine entry point: $8D93 
Routine operation: The string 
to be found is read in within 
quotes, including spaces and 
colons and stored away. The 
rest of the program is a loop 
that searches the program until 
the string has been found, lists 
the line, and starts searching 
from the next character. 

The error message vector is 
stored away and replaced with 
a jump to an 'RTS' so that LIST 
will return to the routine. 

APPEND 

Abbreviated entry: A(shift)P 
Affected Basic abbreviations: 
NONE 

Token: Hex $EE,$03 Decimal 

233,3 

Modes: Direct and program 
Recommended mode: Direct 
Purpose: To load a program 
into memory so that it appears 
'on top' of the current 
program. This routine will work 
with both disk and cassette and 
the variable pointers when 
loaded are set to the end of 
the combined program. When 
this routine is used, you should 
check that the line numbers of 
the APPENDed program are 
larger than the line numbers of 
the program in memory. 
Syntax: APPEND [filename[,d[, 
s)}) - where d is the device 
number and s is the secondary 
address. 

Errors: The same errors will be 
encountered as in the Basic 
command LOAD. 
Use: This routine would be 
used mostly to add Basic library 
routines onto the end of your 
programs. It would be used 
rather than MERGE because 
APPEND is much faster. 
Routine entry point: $84D8 
Routine operation: The 
APPEND routine uses LOAD's 
parameter parsing routine to 1 
get the filename etc. then sets 
the secondary address so that it 
loads at the end of the Basic 
program in memory. The load 



routine is then called and the 
program re-chained and 
variable pointers set. 

These extended Basic 
routines are all taken from the 
book Advanced Commodore 
64 Basic Revealed by Nick 
Hampshire, published by 
Collins. 



FIND 




STA $BF40,X ; STORE IN SEARCH STRM6 
INK 

CPX H40 jSTRING TOO LONG? 
BNE FIND03 ;N0 
LDX #$17 ;STRING TOO -ONE 
JMP *A437 {OUTPUT ERROR 
FIND04 LDA HQO ;TEP(1INATCP TC STRING 
STA $BF40,X ;ST0RE IT 
STX $22 ; STORE STRING LENGTH 
RTS ;EXIT 

» 

FIND05 LDA $2B ;GET START OF PROGRAM 
CLC 

ADC #$02 ;PL'JS 2 
STA $57 

LDA $2C ; SET START OF PROG HBB 
■ ADC 1*00 
I STA $58 ; STORE IT 
i RTS 

) ; 

) FIND06 LDX MOO I INDEX TO STRING 

) LDY #$02 ; INDEX TO LINE 

3 STY 123 

D FIND07 LDA $01 

0 AND l$FE ;DUT BASIC ROM 

0 STA $01 

0 LDA ($57), Y ;GET BYTE 

0 BEG FIND09 ;END OF LINE 

0 CMP $BF40,X ;SAME AS STRING? 

0 PHP 

iO LDA $01 

'0 ORA l$01 ;IN BASIC R0K ( 
10 STA $01 

10 PLP 

)0 BNE FIND09 ;N0T MATCHED 

10 INY iNEXT BYTE 

20 INX ;NEXT CHAR 

50 CPX $22 ; STRINB MATCHED? 

40 BNE FIND07 :N0 

50 RTS ;YES 

60 FIND08 INC $23 ; START AT NEXT BYTE 
70 LDY $23 

90 LDX #$00 ; AND START OF STRING 
90 LDA ($57). Y :6ET BYTE 
00 BEQ FIND09 ;END OF LINE 



1710 JHP FIND07 :TRY AGAIN 
1720 FINDO? LDA $01 



QRA HOI ;IN BASIC ROM 
STA $01 
LDA $57 
SEC 

SBC #$02 ; LINE POINTER -2 

STA $57 

LDA $59 

SBC l$00 

STA $58 

LDY #$00 

LDA ($57), Y ;GET LINK LO 
STA $5« : STORE IT 



1730 
1740 
1750 
1760 
1770 
1780 
1790 
1B00 
1810 
1B20 
1830 
1840 
'8^0 INY 

1960 LDA ($57). Y ;GET LINK HI 
1870 STA $58 ".STORE TO POINTER HI 
I8S0 ORA $59 :END OF PROGRAM? 
1990 BEQ FIND10 jYES 
1900 LDA $59 ; GET LINE POINTER Lfl 

1910 CLC 

1920 ADC #$02 ;ADD 2 
1930 STA $57 ;ST0RE IT 
1940 LDA $58 :GET HI BYTE 
1950 ADC l$00 
I960 STA $58 

1970 JMP FINDOfc ;D0 NEXT LINE 
1980 FIND10 SEI 

1990 LDA FINDER ; RESET ERROR LINK 
2000 STA $0300 
2010 ,LDA FINDER+1 
2020 'STA $0301 
2030 CLI 

2040 JMP $A474 ;EXIT 
2050 : 

2060 FIND11 RTS : ERROR LINK 

2070 : 
20BO 
209C 



216C 
2170 
2180 
2190 
2200 
2210 

7Wfl 



S ? A $15 :ST0RE IT 

JSR $A613 : FIND LINE ADDRESS 

JSR $A6C9 ; LIST LINE 

JSR FIND16 ; RESTORE POINTERS 

INC $23 ;NEXT CHAR IN LINE 

LDY $23 

LDX #$00 :STAR 7 OF STRING 
RTS 



40 



2250 F1IB13 INC $7A ; INCREASE LSB 

22M BNE FIND14 

^70 INC $7B 

2280 FINDI4 LDY #$00 

2290 LDA ($7A),Y ; BET INPUT BYTE 



2100 
2110 
2120 
2130 
2140 
2150 



FIND12 LDY #$00 
JSR FIND15 :SAVE POINTERS 
LDA #$91 ;CURSOR UP 
JSR $FFD2 :PRI«T IT 
LDA ($57). Y ;GET LINES LO 
STA $14 :3TQRE IT 
INY 

LDA ($57), Y j GET LINE* HI 



?Tfln 



2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
24B0 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 



RTS 

4 

FIND15 LDA $22 ;STORE STRING LENGTH 
STA FIND!? 

LDA $23 ; STORE LINE INDEX 
STA FIND17+1 

LDA $57 -STORE LINE POINTER LO 
STA FIND17+2 
LDA $58 ;HI 
STA FIND17+3 

LDA $FC ;SAVE CHANGE VARIABLE 
STA FIND17*4 
RTS 



FIND16 LDA FIND17 ; GET STRING LENGTH 
STA $22 

LDA FIND17*1 ;GET LINE INDEX 
STA $23 

LDA FIND17+2 ;GET LINE POINTER LO 
STA $57 

LDA FIND17+3 : GET LINE POINTER HI 
STA $58 

LDA FIND17+4 ;GET CHAN6E PARAMETER 

STA $FC 

RTS 

FIND17 .BYT $00.$00,$00,$00,$00 

FINDER .MQR 0 

.END 



APPEND 



1000 ArrtND LDft IIOU 


11 B0 


SEC ; POINTERS TO END OF 


* T / A 1 AA i C - i I 

1360 LDA 157+1 


1010 STA $0fl 


1190 


SBC M02 ; NEW PROGRAM 


1370 ADC MOO 


• a^a 'rp trim r rt tti r UBUFTfBi! 

1020 JSR $E1D4 ; BET FILE PARAEE'ePS 


1200 


STA 157 


1380 STA $2D*1 


1 A?A 1 TIA > 1 

1030 LDfl 1100 


1210 


TYA 


1390 STA $2F*1 


1040 STfl $B9 ;SET Sfl FDR ALT LOAD 


1220 


SBC MOO 


(AAA II V ■ _ t t 

1400 STA $31*1 


1050 LDfl $2D 


1230 


STA i57*l 


1410 RTS 


1 At A PCf 

1060 SEC 


1240 RESV01 LDY MOO ; FIND END OF PROGRAM' 


1420 RESV02 LDY #$00 ; NOT YET END OF 


rni" . PfT 1 flAA AAARr(*(* 

1070 SBC t»Q2 ; SET LOAD ADDRESS 


1250 


LDA ($571, Y ; AND SET VARIABLE 


1430 LDA ($57), Y ; PROSRAM. GET 


1080 TAX ; DIRECTLY AFTER RESIDENT 


1260 


BNE RESV02 ; POINTERS 


1440 STA $59 ; ADDRESS OF NEXT 


1090 LDA $2D+1 ; PROGRAM. 


1270 


INY 


1450 INY ; LINE. 


1100 SBC MOO 


12B0 


LDA ($57) t Y 


1460 LDA ($57), Y 


11S0 TAY 


1290 


BNE RESV02 


1470 STA $57*1 


1120 LDA $0fl 


1300 


LDfl $57 


1480 LDA $59 


1130 JSR $FFD5 ; LOAD 


1310 


CLC 


1490 STA $57 


:U0 ; 


1320 


ADC M02 


1500 JMP RESV01 


1150 RESVAR JSR $A533 : RE-CHAIN LINES 


1330 


STA $2D 


1510 .END 


1160 LDA $2D 


1340 


STA $2F 




1170 LDY $20+1 ; RESET VARIABLE 


1350 


STA 131 


■ 




BASIC LOADER 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



100 

110 

120 
130 
140 
138 
160 
170 
180 



5ASIC LOADER FOR THE BASIC * 

TENSION PACKAGE * 

•INCLUDES WEDGES AND THE * 

•COMMANDS : * 
•APPEND j CHANGE , CTL, DUMP AND* 

•FIND * 

•COPVR I GHT 29.3. 85 # 

HAMPSHIRE * 



# 



IC 



190 

200 

210 
22G 



REM ••••••••*•••••••••$••*••$$• 

1=1 'X=0*L=32768 . 
READ.A : IFA»999THEN300 
POKELv A 
230 LNL+i ! 1=1+1 :X=X+fl 
240 GOTO210 

360 I F 1 02927THENPR I NT " NUMBER OF 
DATA ENTRIES ERROR " I " SHOULD 
BE 2327" END 

310 IFX0341614 THENPR INT H CHECKSUM 
ERROR. VALUE "X M SHOULD EE 
341614" : END 

320 REM TO RUN ROUTINES SVS<64738) 
330 REM 
340 END 

1000 DATA 122, 123,57, 128, 135, 194,295 
1010 DATA56,48, 133,227, 131, 164,201 
1920 DATA 123, 153, 130,247, 130,59, 131 
1030 DATA76,72, 178,0,49,234,63 
1 040 DATA 123,71, 254 , 74 , 243 , 1 45 , 242 
1 050 DATA 1 4 , 242 ,89,242,51, 243 , 24 1 
1 060 DATA 131,202,241 , 237 , 246 ,62,241 
1 070 DATA47, 243 , 63 , 1 23 , 1 65 , 244 , 237 
1080 DATA245,32, 183,246,32,225,255 



**** 

1030 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1130 

1200 

1210 
1220 

1230 
1240 
1250 
1 260 
1270 
1280 
1230 

1300 

1310 



DATA240,3,76, 114,254,32, 163 
DATA253, 32, 24, 223, 32, 33, 128 
DATA32,204,255, 169,0, 133, 19 
DATA32, 122, 166,88, 162, 123,76 
DATA 136, 227, 162,21, 160, 128, 134 
DATA 135, 132, 136, 160,35, 177, 135 
DATA 153, 16,3, 136, 16,243, 163 
DATA11S, 160, 131, 141, 143,2, 140 
DATA 144, 2, 96, 142 , 22 , 203 , 32 
DATA 1 63 , 253 , 32 , 30 , 253 , 32 , 3 1 
DATA255,32,33, 123,88,32,229 f 
DATA 128, 32, 191,227, 163, 123, 133 
DATA52, 133,54, 133,36, 169,0 
DATA 1 33 , 5 1 , 1 33 , 53 , 1 33 , 55 , 1 69 

DATA 172, 160, 123/32,45,228, 162 
DATA251, 154,208, 172/147, 13, 32 
DATA32, 32, 32, 42, 42, 42, 42 
DATA32, 69, 38, 84, 69, 73, 68 
DATA69, 68, 32, 54, 52, 32, 66 
DATA65, 83, 73, 67, 32, 86, 43 
DATA49 , 32 , 42 , 42 , 42 , 42 , 1 3 
DATA 1 3 , 32 , 54 . 52 , 75 , 32 , 82 
DATA65 , 77 , 32 , S3 , 39 , 83 , 84 



[ 



BASIC LOADER 



"S32j0j 162, li 



DATA69, 

DATA139,9, 123, 157,9,3,202 
DATA 1 6 , 247 , 96 , 32 , 35 , 286 , 67 
DATA84 , 204 , 65 > 30 , 80 > 69 , 73 
DATA 1 96 - 65 , 35,34 , 297 , 67 , 65 
DATA84,65,76,79, 199,6 
DATR65 ,78,71*1 97 , 67 , 72 , 6 



1326 
1330 
1348 
1350 
1360 
1378 
1330 

i 390 DATA73 , 206 , 67 , 32 , 3 



3,6 



1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1430 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1578 
1530 
1590 



0 DATA206 , 68 > 69 , 76 , 69 ,34,1 97 



E 



1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1719 
1720 
1730 
1740 
1750 
1760 
1776 
1780 
1790 

1300 

1310 
1820 
1830 
1840 
1850 
I860 
1870 



DATA63, 73, 83, 203, 63, 79, .-5 
DATA 197, 63 , 85 , 77 , 208 , 69 , 88 
DAT A69 , 1 95 , 70 , 73 , 78 , 1 96 , 7 1 
DATA69 , 2 1 2 , 75 , 69 , 2 1 7 , 77 , 65 
DATA212, 77, 69, 32, 71 , 197, 79 
DAT A76 , 1 96 , 80 , 79 , 203 , 80 > 35 
D AT A2 12,82 , 69 , 73 , 35 , 77 , 66 
DATA69 , 2 1 0 , 82 , 69 , 80 , 69 , 65 
DATA2 1 2 , 83 , 79 , 82 , 2 1 2 , 84 , 32 
DATA65, 67, 69, 79, 206, 84, 32 
DATA65 , 67 , 69 , 79 , 70 , 1 93 , 84 
DAT A89 , 80 , 1 97 , 85 , 78 , 84 , 73 
DATA204 , 68 , 69 , 69 ,293,72, 73 
D AT A77 , 69 , 205 , 76 ,79,77, 69 
DATA205,86,65,82,80,84,210 
DATA0,36, 139, 133, 133, 197, 138 
DATA39, 139,42, 139, 116, 134,45 
DATA139,43, 139, 51 , 139, 54, 139 
DATA57, 139, 187, 135,60, 139, 135 
DATA 1 37 ,63,1 39 , 66 / 1 39 , 69 , 1 39 
DATA72, 139,75, 139,78, 139,81 
DATA 139, 34, 139,87, 139,90, 139 
DATA93, 139,96, 139,99, 139, 102 
DATA 1 39 , 105, 139, 108, 139, 111, 139 
DATA1 14, 139, 166, 122, 160,4, 132 
DATA15, 189,0,2, 16,7,201 
DRTR255 , 240 , 43 , 232 , 208 , 244 , 20 1 
DRTR32 , 240 , 36 , 1 33 , 3 , 20 1 , 34 
DRTR240,71,36, 15, 112, 26,201 
DRTR63,208,4, 169, 153,208, 18 
DRTR201,48, 144,4,201, 60, 144 
DATR10,76,70, 130, 169,238,44 
DATR5, 11, 164, 113,232,200, 153 
DRTA251, 1,201,233,240,49, 135 
DATA25 1 , 1 , 240 , 34 , 56 , 233 , 58 
DATA240 , 4 , 20 1 , 73 , 208 , 2 , 1 33 
DATA15,56,233,85,203, 174, 133 
DATR3, 189,0,2,240,219, 197 
DRTA3, 240,215,200, 153,251, 1 
DATR232 , 208 , 240 ,153, 253 ,1,1 93 
DRTA123, 169, 255, 133, 122, 96, 165 



1830 
1890 
1900 
1910 
1920 
1930 
1940 

1950 
I960 
1970 
1980 
1990 
2000 
2001 
2010 
2029 
2030 
2040 
2050 
2060 
2070 
2080 
2099 
2100 
2110 
2120 
2139 
2140 
2150 
2160 
2170 
2180 
2190 
22 
22 
2220 
2230 
2240 
2250 
2260 

:276 

"280 



DATA16,250,135, 241,123,208, 228 
DATA160,0, 132, 11, 136, 166, 122 
DATA202 , 200 , 232 , 1 89 , O , 2 , 5b 
DRTR249, 158, 160,240,245,201, 128 
DRTR208, 3, 76, 255, 129, 166, 122 
DRTR230, 11,200, 135, 157, 160, lb 
DRTR250, 185, 153, 160,203, 225, 189 
DRTR0,2,76, 1,130,48,3 
DRTR76 , 243 , 1 66 , 20 1 , 255 , 240 , 
DRTR36, 15,48,245,201,238,240 
DATR5, 32, 217, 130,48,3,32 
DATA 186, 130, 76, 239, 166, 200, 1 ? ? 
DRTR95 , 1 70 , 1 32 , 73 , 1 60 , 255 , 202 

=0 : X=0 ^ (jP 

DRTA240,3,200, 135,241, 123, lb _ 
DATA250,48,245, 200, 185,241, 128 
DAT A43 , 5 , 32 , 2 1 0 , 255 , 208 , 245^ 
DATA96,56,233, 127, 179, 132. 



3, 200, 185 



DATA1 1 , 209, 153, 251 , 1 , 76, 297 
DRTR129, 132, 113, 160, 255, 134, 122^ 
DRTR202 , 1 69 , 1 , 1 33 , 1 1 , 200 , 232 
DRTR189,0,2,56,249,241, 128 
DRTR240, 245, 291, 128,249, 156, 166 
DATA122, 239, 11,200, 185,240, 123 



-"-■.00 
'-10 



2290 
230Q 
2310 
2320 
2330 
2340 
2350 
2:-ii^0 
2370 
2380 

-•■"••ZiCi 



10 



DATA 160, 255 , 202,240 
DAT A 1 58 ,160,16, 250 , 43 , ^45 , ^0tf 
DATA185,158,160, 48, 230,32,210 
DATA255, 208,245,32,115,0,^91 
DATA23S , 240 ,10,201,1 53 , 249 , 38 
DATA32, 121,0.76,231, 167,32 
DATA14, 131,76, 174, 167,230,122 
DATR208 , 2 , 239 , 1 23 , 160, 0, 177 
DRTR1 22,56, 233 ,1,10,163,135 
DRTR138, 129, 72, 135, 137, 129, 72 
DRTA76, 1 15, 9, 32, 46, 131, 76 
DATA174, 167, 173,58, 131,72, 173 

DATA57, 131,72,76, 115,0,235 
DATA 132, 169,0, 133, 13,32, 115 
DRTRO ,291, 238 , 240 ,6,32 , 121 
DRTRO ,76,141,174, 230 , 1 22 / 298 
DATA2 ,239,123,1 69 , 0,17 7 ,122 
D AT A20 1 29 > 1 76 , 3, 76, 8 , 175 
DRTA133,36, 169, 173, 72, 1*9^49 
DATA72, 198,36, 165,36, 10, 170 
DaTA189> 138, 129, 72, 139, 13/, Vd'J 
DHTA72, 76, 115,0, 165, 157,249 
DATA 1 6 , 1 69 ,1,36,212, 293 , 1 0 
DATA 1 65 , 203 , 20 1 , 3 , 144,4 , 20 1 
DATA? , 1 44 , 3 , 76 , 72 , 235 , 1 97 
DATA i 97 , 249 , 249 , 1 69 , 9 , 1 33 , 252 
PATA133,251, 169, 1,44, 141,2 
DATA240,4, 169, 32,133,251,169 
DATA i 9 1 , 1 33 , 252 , 169, 192,24, 101 
DATA25 1 , 1 33 , 251,1 65 , 203 ,201,3 
DAI A298 ,4,1 69 , 24 , 208 ,13, 20 1 
DRTA6 • 293 , 4 , 1 69 , 1 6 , 208 , 1 0 
DAJA20 1 , 5 . 293 , 4 , 1 69 , 3 , 203 
DAT A2 , 1 69 , 9 , 24 ,101 , 251,1 33 
D AT A25 1 , 1 60 , 0 , 1 69 , 54 , 1 33 , 1 
DATA 1 77 , 25 1 , 249 , 3 , 1 53 ,119,2 
DATR200 , 1 92 , 8 , 208 , 244 , 1 32 , 1 98| 




BASIC LOADER 



2540 
253* 
2566 
2570 
2530 
2590 
2606 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26 88 
2690 
2700 
2710 
2720 
2730 
274U 
2750 



2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2360 

2870 

2330 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 



DATA 1 69 i 55 , 133, 1 > \ 65 , 203 , 1 33 
DRTR197, 173, 141,2, 141, 142.-2 
mjfm , 1 65 , 1 53 , 203 ,4,165,1 57 
DRTR208, 3, 76, 87, 241 , 165, 21 1 
DRTfl 133, 202, 165,214, 133,201, 152 
DRTR72 , 1 38 , 72 , 1 65 , 208 , 240 , 6 
DRTR76, 58, 230, 32, 22, 231 , 165 
DRTfl 1 93 , 1 33 , 204 ,141,146,2, 240 
DRTR247, 120, 165, 207, 240, 12, 165 
DRTR206, 174, 135,2, 160,0, 132 
DRTR207, 32, 19, 234, 32, 180, 229 
DRTR201 , 131 , 208, 16, 162, 9, 120 
DRTfl 1 34 , 193, 1 89 , 230 , 236 ,157,11 8 
DRTR2, 292, 203, 247, 240, 207, 201 
DRTR 1 3 , 208 , 3,76,2 , 230 , 20 1 
DRTR 1 7 , 208 , 1 93 , 1 66 , 2 1 4 , 224 , 24 
DRTR240, 3, 76, 15, 132, 162,24 
DRTR 1 60 , 0 , 24 , 32 , 240 , 255 , 230 
DRTR20, 208, 2, 230, 21 , 32, 19 
DRTR 1 66 , 1 60 ,1,177, 95 , 208 , 1 6 
DRTR 1 69 , 255 , 1 33 , 20 , 1 33 ,21,1 69 
DRTR 185, 160, 132,32, 30, 171,76 
DflTfliS, 132, 160,2, 177,95, 133 
DRTR20, 200, 177,95, 133,21, 169 
DRTR 162, 141,0,3, 169, 132, 141 
DRTR1 , 3, 104, 141, 183, 132, 104 
DRTR141, 134, 132, 160, 1, 132, 15 
DRTR76,215, 166, 169, 139, 141,0 
DRTR3, 169, 227, 141,1,3, 173 
DRTfl 134, 132,72, 173, 183, 132,72 
DRTR76, 18, 132,0, 1, 13, 13 
DRTR13, 42, 42, 42, 42, 42, 42 
DRTR42 , 42 , 42 , 42 , 42 > 42 , 32 
DRTR69 , 78 , 68 , 32 , 79 , 70 , 32 
DRTR30, 82, 79, 71 , 32, 65, 77 
DRTR32 ,42,42,42, 42 ,42, 42 
DRTR42, 42, 42, 42, 42, 42, 13 
DflTR0,32,33, 171: 32, 121,0 
DRTR240 , 80 , 240 , 94 , 29 1 , 1 63 , 240 
DRTR 1 07 , 20 1 , 166 , 24 , 240, 102,201 
DRTR23S,2O3,20, 160, 1, 177, 122 
DRTR20 1 , 2 , 203 , 1 2 , 32 , 1 1 5 , 0 
DRTR32, 115,0,32, 139, 133,76 
DRTR233 ,132,32,121,0, 20 1 , 44 
DRTR240, 55, 201 , 59, 240, 97, 32 
DRTR 158, 173,36, 13,48, 195,32 
DRTR221, 139,32, 135, 180,32,33 
DflTfll71,32,59, 171,298, 184, 169 
DRTR0 ,157,0,2,162, 255 , 1 60 
DRTR 1 , 165, 19,203, 16, 16^9, 13 
DRTR32, 71, 171,36, 19, 16,5 
DRTR 169, 10,32,71,171,73, 255 
DRTR96, 56, 32, 240, 255, 152, 56 
DRTR233, 10, 176,252,73,255, 105 
DRTR 1 , 208 , 25,8, 56 , 32 , 240 
DRTR 25 5, 132,9,32, 155, 133,201 



2980 
2990 

3000 
3010 

3020 
3030 
3040 
3050 
3060 

070 

3080 
3990 

3100 

3110 
3120 
3130 
3140 
3150 
3160 
3170 
3130 
3199 
3200 
3210 
3220 
3230 
240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3369 
3370 
3330 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 



DRTR41, 240,3,76,3 
DRTR 144, 6, 138, £29 



175 



40 



9, 144,5 



DRTR 1 70 , 232 , 202 , 208 , 6 , 32 , 1 1 5 
DRTR0/76, 238, 132, 32, 59, 171 
DflTA203,242,76,30, 171,32, 12 
DRTR134,32,250, 174,32, 121,0 
DflTA32,49, 134, 176,3,32,69 
DRTR 1 34 1 142, 111, 134, 176,66,32 
DRTA46, 134, 176,3,32, 73, 134 
DATA 142, 112, 134, 176,53,32,46 
DRTR 134, 176,8,32,72, 134, 142 
DRTR113, 134, 176,40,32,46, 134 
DflTR176,8,32, 72, 134, 142, 114 



DRTR 134, 176 



7 ■"■ 

I , C f , •mf 



46, 134, 176 



DRTR3,32, 72, 134, 142, 115, 134 
DRTR 176, 14,32,46, 134, 144,3 
DflTfl76,8, 175,32,75, 134, 142 
DRTR116, 134,32,247, 174, 173, 116 
DRTR134,240,5, 169, 147,32,22 
DRTR231, 173, 113, 134, 141, 134,2 
DRTR 173, 114, 134, 141,33, 208, 173 
DRTR 1 15, 134, 141,32,203, 172, 111 
DRTR 134, 174, 112, 134, 24,76,240 
DRTR255 , 56 , 32 , 240 ,255,140,111 
DRTR134, 142, 112, 134, 173,33, 208 
DRTR141, 114, 134, 173, 32,203, 141 
DRTR115, 134, 173, 134,2, 141, 113 
DRTR 134, 169,0, 141, 116, 134,96 
DATA32, 115,0, 201,44,208,2 
DATA56 ,96,201,41 , 248 , 2 , 24 
DATA96, 104, 104, 32, 1 15, 0, 76 
DATA230, 133, 169,40,44, 169, 16 
DATR44, 169,2,44, 169, 25, 141 
DATA110, 134,32, 153, 183,236, 110 
DATA 134, 176, 14,32, 121,0,201 
DATA41 , 240, 21 1 , 201 , 44, 240, 213 
DATA76,S, 175, 162, 14, 76,55 
DATR164,0,0,0,0,0,0 
DATA8,32,225, 138, 32, 134, 138 
DATA133,S9, 162,0,32, 188, 137 
DRTR 162, 0, 32, 223, 134, 134,252 
DRTR32,218, 137, 120, 173,0,3 
DRTR141,196,138,173,1,3,141 • 
DRTR 197, 138, 169,92, 141,0,3 
DATA 169, 133, 141, 1,3,88,32 
DATA232, 137,76, 179, 134,32,93 
DATfll38,32,238, 137,76, 167, 134 
DATA 1 65 , 252 , 56 , 229 , 34 ,240,3 
DATA76,5, 135, 164,35, 162, 64 
DRTR165, 1,41,254, 133, 1, 189 
DRTR64, 191 , 240, 7, 145, 87, 232 
DATA200, 76, 199, 134, 165, 1 , 9 
DATA1, 133, 1, 136, 132,35,76 
DATA 170, 134,32, 128, 138, 197, 89 
DATR240, 3, 76, 3, 175,32, 123 
DATA133, 240, 17, 197, 89, 240, 13 ► 




BASIC LOADER 

3540 DRTR157, 128, 191,232,224,64,203 
(550 DRTA239, 162,23,76,55, 164, 169 
3568 DflTAfrj 157, 123, 191,96, 160,0 
3576 DATA 177, 87, 133,20,200, 177,37 
3530 DATA 1 33 ,21,162 , 0 , 290 , 1 96 , 35 
3590 BRTA240V 10, 177, S7, 157, 0, 2 
36G0 DRTR232,224,86,293,241, 165,1 
36 1 0 DRTR4 1 , 254 , 1 33 ,1,1 69 ,0,1 85 
3620 DATA 128; 191,240,9, 157,0,2 
3636 DATR232 , 200 , 224 , 37 , 208 , 242 , 1 65 
364Q DRTR 1,9,1,1 33 ,1,1 65 , 35 
3650 DRTR24, 101 , 34, 168, 165, 35, 24 
3660 DRTR 10 1,252, 133,35, 198,35, 177 
3670 DRTR37 , 1 57 , 9 , 2 , 200 , 232 , 20 1 

3689 DRTR0.-240, 10,224,83,203,241 

3690 DRTR 169,0, 157,0,2,232, 142 
3700 DRTR 135, 135, 133,24, 105,4, 133 



3710 DRTR11, 173 



, 141, 136, 135 



IE 



3720 DRTR173,3,3, 141, 187, 135, 169 
3730 DRTR 136, 141,2,3, 169, 135, 141 
3740 DRTR3,3,32, 139, 138, 164, 1 1 
3750 DRTR76, 164, 164, 173, 136, 135, 141 
3760 DRTA2, 3, 173, 187, 135, 141,3 
3770 DRTR3,32, 165, 138, 165, 87, 197 
3730 DRTR45,208,6, 165,83, 197,46 
3790 DRTR240, 19, 173, 135, 135,201, 1 
3300 DRTfi240,3,76, 170, 134, 166,2 
33 1 0 DRTR 1 32 , 35 , 1 62 , 0 , 76 , 1 73 , 1 34 
3820 DRTR76.-75, 138,9,0,0, 165 
3830 DRTR46, 133,96, 165,45, 133,95 
3840 DRTR56, 229, 47, 165, 96, 229, 48 
3350 DRTR144,3,76, 167, 136,32, 127 
3869 DRTR 1 36 , 1 65 , 37 , 249 , 43 , 201,1 
3370 DRTR240 ,71, 29 1,2, 249 ,92,1 69 
3389 DRTR37, 32, 210, 255, 32, 157, 136 
3890 DRTR 1 69 , 6 1 , 32 , 2 1 0 , 255 , 160/2 
3999 DRTR177,95,72,200, 177,95, 168 

3919 DRTR104.-32, 145, 179,32,221,189 

3920 DRTR32,30, 171,76,99, 136, 169 
3930 DRTR32,32,210,255,32, 157, 136 
3949 DRTR 1 69 , 6 1 , 32 , 2 1 9 , 255 , 32 , 1 33 
3959 DRTR 177, 165,71-, 164,72,32, 162 
3969 DRTR137, 32, 221, 189,32,213, 189 
3979 DRTR76,99, 136,32, 157, 136, 169 
3989 DRTR47 ,169,1 36 , 32 , 30 ,171,76 
3999 DRTR99, 136,32,61,32,79,35 
4099 DRTR73, 67, 34, 73, 79, 73, 9 

4910 DRTR162,3, 189, 132, 137,32,219 
4929 DRTR255,224,3,298,3,32, 157 



rnrntm 



4030 DRTR 136, 202, 16,249, 169,4, 17 
4949 DRTR95, 133,35, 136, 177,95, 133 
4050 DRTR34, 136, 177,95,32,36, 171 
4060 DRTR169,34,32,210,255, 169, 13 
4070 DRTR32 ,219, 255 , 32 , 225 , 255 , 298 
4989 DRTR 1,96, 24, 165,95, 105,7 
4999 DRTR 133, 95, 166,96, 144, 1,232 



4199 
4119 
4129 
4130 
4149 
4159 
4169 
4179 
4180 
4190 
4200 
4219 
4220 
4230 
4240 
4250 
4260 
4279 
4289 
4290 
4390 
4310 
4320 
4330 
4349 
4359 
4369 
4379 
4330 
4390 
4400 
4410 
4420 
4430 
4449 
4459 
4469 
4479 
4430 
4490 
4500 
4510 
4529 
4539 
4540 
4559 
4569 
4579 
4580 
4599 
4699 
4610 
4620 
4630 
4640 
4659 



'6, 196, 135, 160,0 



,200, 177,95, 10,38 
,74, 153,69,0, 136, 16 



16! 



DRTR 134, 96, 
DRTRl: 
DRTR37 

DRTR244, 165, 69, 32, 210, 255 
3 DRTR70,249,3,32,219,255,96 
DRTR 1 65 , 79 , 298 ,5,169, 32 , 32 
DRTR219,255,96, 169, 13,32,210 
DRTR255, 165,47, 133,95, 165,48 
DRTR133,96, 165,96, 197,50,208 
DRTR6, 165,95, 197, 49,240, 1 



DRTR32 , 225 , 255 , 249 , 1 68 , 



127 



1 1-5 .• 



,240, 10,201,; 



DRTR 136, 
DRTR203 , 3 , 1 69 , 36 , 44 , 1 69 , 37 
DRTA44 , 1 69 , 32 , 32 ,219, 255 7 32 
DRTR 157,1 36 , 1 69 , 32 , 32 , 2 1 9 , 255 

55, 165,95 



"tCT 



IO.JJ 



DRTR169,49,32, 
DRTR24, 195,3, 133,251 
DRTR 1 05 , 0 , 1 33 , 252 , 1 60 ,1,1 77 
DRTR25 1 , 1 33 , 253,169,0,1 33 , 254 
DRTR6 , 253 , 38 , 254 , 1 65 , 253,24 



77 , 



191 



:53 



DRTR 10 1,251, 133,253, 165 
DRTR252, 133, 254, 160,0, 1 
DRTR141, 131, 137,200, 177,253, 141 

DRTR 1 30 , 137, 208 , 3 , 206 ,131,1 37 
DRTR206, 130, 137, 173, 131, 137, 174 
DRTRl 30, 137, 164,95, 140, 139, 137 
DRTR 1 64 , 96 , 1 49 , 1 3 1 , 1 37 , 32 , 295 
DRTR 1 89 172, 139, 137, 132,95, 172 
DRTR131, 137, 132,96,56, 165, 253 
DRTA233,2, 133,253, 165,254,233 
DATR9 , 1 33 , 254 , 1 97 , 252 , 293 , 6 
DRTR 1 65 , 253 , 1 97 , 25 1 , 249 ,8,1 69 
DRTR44,32,219,255,76, 16, 137 
DRTA169,3, 177,95, 133,251, 136 
DATA 1 77 , 95 , 24 ,191 , 95 , 1 33 , 95 
DRTR 1 65 , 96, 101,251, 133,96, 169 
DRTR41,32,210,255, 169, 13,32 
DRTR210, 255,76, 180, 136,0,0 
DRTR34 , 32,61 , 36 , 32 , 1 34 , 1 33 
DRTA133,89, 162,9,32, 188, 137 
DRTR32,213, 137, 129, 173,0,3 
DRTR141, 196, 138, 173, 1,3, 141 
DRTR 197, 138, 169,92, 141,9,3 
DRTR 169, 133, 141 , 1 , 3, 88, 32 
DRTR232 , 1 37 , 32 , 93 , 1 38 , 32 , 233 
DRTR137, 76, 176, 137, 76,3, 175 
DRTR 32, 128, 133,249,248, 197,89 
DRTR249, 13, 157, 64, 191 , 232, 224 
DRTR64, 298, 239, 162, 23, 76, 55 
DRTR 164, 169,9, 157,64, 191, 134 
DRTR34, 96, 165,43,24, 195,2 
DRTR 1 33 , 87 , 1 65 ,44,1 95 ,9,1 33 
DRTR88, 96, 162,0, 169,2, 132 
DRTR35, 165, 1,41,254, 133, 1 
DRTR 177, 87, 249, 33, 22 1,64, 191 

DRTRS, 165, 1,9, 1, 133, 1 ^ 




Programming 



BASIC 

4660 
4670 
4689 
4690 
4780 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4S00 
4310 
4820 
4830 
4840 
4350 
4860 
4370 
4330 
4890 
4900 
4910 



LOADER 

BflTfl40 1 208 , 7 , 200 , 232 , 228 # 34 
DATR208 , 227 , 96 , 230 , 35 , 1 64 , 35 
DATA 162, 0,177,37,240,3,76 
DflTA23S, 137, 165, 1 , 9, 1 , 133 
DATfll , 165, 87, 56, 233, 2, 133 
DATA37, 165,38,233,0, 133,38 
DATA160,0, 177,37, 133,39,200 
DATA 177, 87, 133, 83, 5 . 89, 240 
•DATA16, 165,89,24, 105,2, 133 
DATA87, 165,88, 105,0, 133,38 
DflTA76,232, 137, 120, 173, 196, 133 



DATA141,0,3, 1 



f Of 



197, 133, 141 



DATA1,3,33,76, 116, 164,96 
DATA160,0,32, 139, 138, 169, 145 
DATA32,210,255, 177,37, 133,20 
DATA200, 177,87, 133,21,32, 19 



4920 DATA88, 173, 195, 133, 133,252,96 
4930 DATA0 , 0,0, 0 , 0 ,0,9 
4946 DATA 1 69 ,0,1 33 ,10, 32 ,212, 225 
4950 DATA 169,9, 133, 135, 165,45,56 
4960 DATR233,2, 170, 165,46,233,0 
4970 DATA168, 165, 10,32,213,255,32 
4930 DATA51, 165, 165,45, 164,46,56 
4990 D AT A233 , 2 , 1 33 , 87 , 1 52 , 233 , 0 
5000 DATA 133, 33, 160,0, 177,87,203 
5010 DATA27,200, 177,37,203,22, 165 
5020 DATA37 ,24,1 05 ,2,133, 45 , 1 33 
5030 DATA47, 133,49, 165,33, 105,0 
5040 DATA 1 33 , 46 , 1 33 , 43 , 1 33 , 50 , 96 



5050 DATA160,0,i; 



^7,87 



, 133,89,208 



5060 
5070 



DATA166,32,201, 166,32, 165, 138 5030 

DATA230,35, 164,35, 162,0,96 5050 

DATA230, 122,203,2,230, 123, 160 5190 

DATA©, 177, 122,96, 165,34, 141 5110 

DATA191, 133, 165,35, 141, 192, 138 5120 



r.n 



DATA165,87, 141, 193, 138, 16 
DATA141, 194, 133, 165,252, 141, 195 
DRTfll38,26, 173, 131, 133, 135', 34 
DATA 173, 192, 138, 133,35, 173, 193 
DATA 133, 133,87, 173, 194, 133, 133 



5130 
514U 
5150 
5160 
5170 



DATA 177, 87, 133,83, 165, 89, 133 
DATA37, 76,242, 138,76, 113, 163 
DATA76,8, 175,76,8, 175,76 
DATR3, 175,76,8, 175, 76,8 
DATA175,76,8, 175,76:, 8, 175 
DATA76,8, 175,76,8, 175,76 
DATA8, 175,76,8, 175,76,8 
DATA 1 75 , 76 , 3,175,76,8,1 75 
DATA76, 8, 175,76,8, 175,76 
DATAS, 175,76,3, 175, 76,3 
DATA175,76,8, 175,76,3, 175 
DATA76,3, 175,76,8, 175,76,999 



Advanced Commodore 64 BASIC Revealed 

Nick Hampshire 

Although it is relatively easy to learn to program the 
Commodore 64 in BASIC, advanced programmers need 
to know much more than how to use the fundamental 
commands. This book explains all these details and sets 
out a unique library of routines to add extra commands 
to BASIC. 0 00 383088 8 £9.95 

Advanced Commodore 64 
Graphics and Sound 
Nick Hampshire 

Any programmer wishing to make full use 
of the graphics and sound capability of the 
Commodore 64 will find this book an 
invaluable mine of essential information - 
much of it previously unpublished. 0 00 383089 6 £ 1 0.95 

ORDER FORM Wtm HI taaaaaaV H MM Ml 

Please order from your bookiHter or send thaform wtth your rcmnunce or cred* cwd 
d«U.li to Dep. 44. Colli* Pre-ess.onil and Technwl Book*. B Grafton Street. 
London WIX JLA 

Please send 

ADVANCED COMMODORE 64 
BASK! REVEALED000 J8308B8 



DCL- 
Interface 




TAPE BACK UP DEVICES 



The DC11 «n*» (wo Dataaettel. to 0M K>*d-io 
program <incH>d>ng Turbos! from Da Use tie No 1 
simultaneously creates a BACK UP TAPE on Oateaette 2. 
No software needed 

' Thousands sold * ORDER AS DCl 1 PRICE £10.00 



DCL4 
Interface 



This SUPER OCll ib to* Ihoae with one draMiia and one 
aud>o ret of dei Backup tapes can be made on either a 
aecond Datasetie <x on an audio recorder A LED data 
monitor shows the atari end end ol programs 
• Very Popular 1 ORDER AS 0C14 PRICE C17 00 



DCL4A 
Interface 



SIMILAR to (he 0C14 but fitted with an Audible data 



' BACK UP PROBLEMS SOLVED 




Alignment 
Tape 



Reaaign your Da(aaette lap* head VERV PRECISELY wuh 
triii easy 10 uee kit. (No dismantling of (he Oat at* tie 
required.) Two high Mud 'ate ten* are provided pHm a 
special screwdriver end 'ull instructions. 
••NEW" ORDER AS DHA1 PRICE C7. 50 



Tfln*» HaaH *'"* powered demagnetiser. il used a tew aeconds 

■ ape i icau pc, week (no need to dismantle the Oa(eaette) will reduce 

Demagnetiser v < ^''!!* so ' l ' e . l "' dU8, nu, fl n * ,, * n ' tmprove loadebiiity. 



l™!noenuhlo 



ORDER AS THD1 



PRICE (6 30 



GT LOADER CARTRIDGE for 1541 D/Drr 



GT Loader 
Cartridge 



Thia enables youi 1541 d. drive to >0*d 4 

faster With many useful feature* including abbreviated 
toad tave commends and unique on.olf switching, etc 
* Essentia" ' ORDER AS CTlt PRICE f 20 00 

ALSO AVAILABLE WITH BUILT IN RESIT SWITCH 

ORDER AS GTL2 PRICE f 22 00 



I J ADVANCED COMMODORE 64 
GRAPHICS AND SOUND 0 00 S850S9 6 



1 enclose my remittance lor C 



FREE CATA10GUE " Please send 17p stamp 



Free 

Catalogue 



Full details ol those and many other products all «... 
" FULLY INCLUSIVE PRICES 

<*fl BHOTHEP HR5 80 col Dot Ma(ru Printer CM9 00 

eo FIDELITY CM14 Colour MorxlO' for CBM64 (199 00 
eg PRINTER Cable and software drrver to. C6M64 C19 90 
eg 'HE STICK The 'antaatic new baseless rovslic* (1 3 95 
PLUS Inter face* cleaning kits, printer motor lead*, etc 



Add 1 1 SO tor IW purchase plus SOp tor each addiuowi item) 



NaTM 



Wrhai 



10 DAY MONEY BACK GUARANTEE ON ALL HARDWARE 



Terms: 



ORDERING: ALL PRICES ARE FULLY INCLUSIVE NO 
HIDDEN EXTRAS AND INCLUDE RECORDED OELIVERY 
(EXPORT add El 00 e.tral 



TRILOGIC 29 HOLEM LANE. BRADFORD 
Dept yc BD4 OQA 

iformeriy TrigsoHt TEL: 0274 684289 
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Your Commodore' 



the States, Burton Rubin, 



attended the launch of the 



Amiga. Here's his report plus 



Brendin Lewis's impressions 



of Metacomco — makers of 



US View 

FOR THE PAST TWO YEARS, WISPS OF 
rumours, as insubstaniial as smoke, have 
appeared in various magazines 
concerning the fabled, long awaited, 
Amiga computer. Originally called the 
Lorraine, the product of the Amiga 
Corporation, the machine, a 32 bit 
computer with fabulous graphic and 
sound capability, was to be the ultimate 
home computer. 

Silicon Valley, as we all know, is littered 
with the bones of "ultimate home 



computers". Timex-Sinclair, Texas Instru- 
ments, Coleco, Mattel, and even the 
mighty IBM have all seen their offereings 
for the home market wither away to a 
dusty death. When Jack Tramiel left 
Commodore, there was some speculation 
that his plan might be to purchase Amiga, 
(and with it, the rights to the wonderous 
Lorraine) and use the new machine as the 
saviour of the almost moribund Atari. By 
purchasing, Amiga, Commodore beat 
Atari to the punch. 

Commodore first exhibited the 
machine at the June, 1984 Consumer 



AMIGA 



The Amiga Specifications 



Machine: 
Processor: 
RAM: 

ROM: 
Graphics: 




Commodore Amiga 
68000 at 7MHz 
256K standardd; 256K 
expansion slot; Up to Mb 
192K operating system. 
320*200 32 colours; 320* 
400 32 colours 
640x200 16 colours; 640* 
400 16 colours 
Colours selected from a 
palette of 4096 
Four audio channels 
including stereo and 
speech 

3% inch floppy 880Kb 
Amigados, speech, Basic, 
Graphics 

Miscellaneous: Peripherals: Videodisk 
unit, hard disk plus 1M 
byte RAM, colour 
monitor, modem. Three 
custom chips inside the 
Amiga take much of the 
processing burden away 
from the 68000. The very 
high speed graphics are 
handled by one of these 
chips. 



Special Feature 



Electronics show and its specifications 
were impressive. The Motorola 68000 was 
chosen for the central processing unit. 
This is a 32 bit chip with a 16 bit bus. 
Capable of addressing up to 16 megabytes 
of memory, it is the same chip that powers 
the Apple Macintosh. Tramiel's riposte 
was the 130ST and 520ST, 32 bit machines 
running GEM. The Commodore camp 
responded with. . .silence. Sure, there was 
plenty on the sparkling, rational new 128, 
and even pictures and publicity on the 
new notebook computer. But 
Commodore breathed nary a word about 



Logo, and Lisp will be available at the time 
of introduction, as well as a very powerful 
version of Microsoft Basic. Third party 
publishers will have more than 20 games 
available when the machine hits the 
shelves. Arktronics has already completed 
work on a videodisk interface. 

The Amiga works through the now 
familiar system of menus, windows, icons, 
multitasking, and a mouse - first 
pioneered by Apple with the Lisa. Up to 50 
windows can be open and running on the 
Amiga, though this is obviously more than 
anyone can manipulate without going 



UNVEILED 



the Lorraine, and the rumours continued 
to fly. 

At the official premier of the Amiga 
computer, hosted (quite grandly) by 
Commodore at the Vivian Beaumont 
theatre at Lincoln Centre, the rumours all 
came true. 

The specifications do not convey the 
power of the machine. The standard con- 
figuration of the Amiga includes a 
Motorola 68000 microprocessor, running 
at almost eight MHz, with 256K of RAM, 
internally expandable to 512K. The speed 
of this microprocessor is further abetted 
by a proprietary three chip set which frees 
the 68000 from routine graphic and I/O 
tasks. 

The Amiga is controlled by an 89 key 
keyboard with numeric keypad, cursor 
and special function keys, or a two button 
mouse. It features a built in three and a 
half inch disk drive (880K formatted). 80 ' 
25 line text display, 640 * 400 resolution 
and a palette of 4,0% colours (of which, 
any 16 can be on the screen at one time in 
high resolution mode). There are parallel, 
serial, and second drive ports, two recon- 
figurable joystick ports, as well as text to 
voice and professional quality four 
channel multi-voice music synthesis 
capability. ABasiC, Amiga ODS, and 
Amiga Tutor will be bundled with the 
machine. 

Software availability, the bane of all 
new computer introductions, would 
seem not to be a problem here. Thanks to 
the Emulator - a software option - the 
Amiga can run IBM PC compatible 
software packages like Lotus 1-2-3. Word- 
star, and D Base Ml, in either 3.5 or 5.25 
inch disk format. 

In addition, when introduced in Sept- 
ember, the Amiga will have available 
more than 20 programs including word 
processing, accounting, productivity, 
education, speech synthesis, telecom- 
munications, paint, animation, and 
graphic programs. Assembler, C, Pascal, 



insane. The Intuition operating system, 
working through a system of "gadgets" 
makes windowing an easier and quicker 
task than it is on the Macintosh, or with 
the GEM operating system of the Atari. 

The animation power of the machine is 
almost beyond description. It should 
open new vistas for anyone who needs 
professional visual aids. Its value to the 
small advertising agency, or any small 
business should be incalculable. 
Combined with the phenomenal multi- 
tasking capability, Amiga should be a 
formidable weapon in the business wars. 

With business applications firmly in 
mind, Commodore has chosen to 
merchandise the machine through 
specialist dealers. Long ago, Commodore 
pulled the plug on computer stores, in 
favour of mass market merchants. 

The powers at Commodore are 
reversing the decision that made them 
such a commercial success and critical 
failure. It remains to be seen just how 
easily Commodore will be accepted by 
the same computer stores which were 
abandoned a few years ago. 

At a list price of $1295, the Amiga 
represents excellent value. However, it's 
unlikely to be found at the local K Mart. 

My feeling is that acceptance in the 
computer stores may come gradually, but 
it will definitely come. The machine is 
simply too good to be ignored. The $1295 
price tag includes a healthy mark-up for 
the dealers, and Commodore has signed 
up 800 RCA service locations to provide 
service support. With the advent of the 
Amiga, Commodore has both Apple and 
IBM lined up in its sights. 

Thomas Rattigan, president of 
Commodore North America, is talking 
tough. "Commodore" he says, "is a 
strong, lean, aggressive, organization", 
and he intends to have the Amiga 
showcased in 10,000 outlets within a year 
of its introduction. He feels that the 
Amiga is a great leap forward (shades of 



Sir Clives QLI). 

Irving Gould, Chairman of the 
company, sees the future of Commodore 
in "sophisticated, high end systems", with 
"excellent price/performance ratios" and 
"a full, rich, product line". That doesn't 
sound like the marketing philosophy that 
we've all grown to know and love. 

The Amiga, though, is a machine 
capable of changing the philosophy of a 
company. Where the trusty old 64 was a 
Ford, and the Plus Four an Edsel, the 
Amiga is a Ferrari. The ultimate decisions 
will be made in the marketplace. Don't 
bet against the Amiga. 

The UK Connection 

Tucked away in the corner of a small 
square in Bristol is the software house 
Metacomco. What is Metacomco? It is the 
company which has written Amigados, 
the operating system for the new 
Commodore Amiga. Metacomco is not a 
large company - with a staff of 25 - but it 
does have a good track record, working 
on software for both the Sinclair QL and 
the Atari 520ST. 

Upon meeting a few of the staff it's 
quite easy to see that the firm's success is 
based on three main factors - sound 
management, expertise and, most 
notably, enthusiasm. Even some members 
of the senior management seem like small 
children playing with a new toy whenever 
the Amiga is mentioned. Even this cynical 
reporter was surprised at its performance. 
Though, as ever I'm still not totally 
convinced, I'll reserve final judgement for 
the full production model. Metacomco's 
staff, on the other hand, have had the 
word cynical totally erased from their 
memories. It was difficult for them to see 
a market into which the Amiga would not 
fit. 

The whole story really started about 
three years ago when Amiga Inc. started 
work on a new machine. In November 
1984, Commodore took over Amiga and 
thus the machine. Previous to this though, 
Commodore had already approached 
Metacomco concerning Tripos (which is 
the framework around which Amigados is 
built). From here, Metacomco has never 
looked back and has written various bits 
of software for the Amiga, including a 
version of Basic. 

Although, for most of the day it was 
difficult to stop our host talking, I did 
finally get an ominous silence when I 
broached the subject of Amiga II. The 
only reply I did get was that, due to the 
open technology of the Amiga, the 
Japanese would be the first to produce an 
Amiga look-a-like and that ideas were 
already in the pipeline for something 
within the next 12 months. 

Finally, my thanks to all at Metacomco 
for a very enjoyable day, and for 
providing what Commodore UK could 
not (or would not), a look at the Amiga. 
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II 



|Split your 64's memory 
Iwith this useful littlel 




program from Ray| 
|Green. 

Introduction 

WHEN USING YOUR C64 TO 
develop Basic programs there 
are times when it would be 
useful to have another 
machine set up close to hand in 
order to run small utility 
programs, for instance hex 
conversion, address calcula- 
tion, etc. In schools, two pupils 
sharing one machine must be 
working on the same program 
unless a very disciplined 
approach is used. Split 64 is my 
attempt to solve these 
problems without incurring 
the cost of an extra machine. 

od 

program splits Basic 
mory into two areas of just 
over 16K allowing the machine 
to hold two different Basic 
programs at the same time. 
Switching between areas is 
achieved by holding down the 
shift key and pressing the 
control key. Each area 
maintains the screen informa- 
tion from the last time you used 
it. The variable contents also 
remain intact. The second 
screen information is stored at 
the top of memory leaving 
approximately 3K free for 
things like Centronics interface 
software. The area from SC000 
is also free for utilities. 

In the initial start up of (he 
program, I set the screen 
colours up to the normal blue 
for area (a) and green for area 
(b). If these are not to your 
liking then just change them 
with the normal POKEs and the 
colours you set will be stored 
when switching between areas. 
If while using this program, 
run/stop restore is pressed, 
then as normal the screen will 
reset to blue and clear. 
However, the shift control 
switch will no longer work so to 
re-start Split 64 without losing 
your programs, type SYS 
(35896) [return]. SYS (35840) 
resets split 64 completely. 





I 





Basic Loader 



1/2/B5 



1 REfl *«**»»»»»»»• 

2 rem * 

3 rep! * r. green 

4 REfl * * 

5 REM «*»**»•»****»»****»**"***»**•*** 

6 A-35840 

10 PRI NT "C CLEAR] C DOWN] CRIGHT]C RIGHT] C RIG 
HTKRIGHTK RIGHT] CR IGHTD C R I GHT] C R I GHTD t R 
I GHT] CRIGHTJC RI6HT3 CRIGHT]C RIGHT] [RIGHT] 
CRIGHT]CRIGHT]CRUSQN]SPLIT 64CRUS0FF] " 
15 PR INT " C DOWN ] C DOWN] C DOWN] C DOWN] C DOWN ] C 
DOUIN] C DDUN ] C DOWN] C □□UN] C DOWN] C R I GHT] C R I G 
HT] CRIGHT]CRI GHT] C RIGHT] CRIGHT]C RIGHT] CR 

I GHT] CRIGHT]CRI GHT] CRI GHT] [RIGHT] C RIGHT] 
[ RI GHT] C R I GHT] WORKING" 
20 READD 
C-C+D 

I FD< 0THEN40 
POKEA , D : A-A+l : G0T020 
I FC-37269THENSYSC 35840) 
PRINT"CDOUN][DOWN]ERROR IN DATA" 
DATA 162 , 16 , 189 ,46, 141, 141, 134,2, 202 , 1 



25 
30 
35 
40 
45 
50 
83 

55 DATA46 , 141 , 141 , 33 , 20B , 202 , 1B9 , 46 , 141 , 
141 



DATA32 , 20B , 202 , 1B9 , 46 , 141 , 149 , 43 , 202 , 

DATA24B , 162 , 2 , 169 , 0 , 157 , 0 , B , 157 , 0 
DATA74 , 202 , 16 , 247 , 32 , 34 , 228 , 32 , 120 , 14 

DATA32 , 34 , 22B , 32 , 120 , 140 , 120 . 173 , 20 , 3 
□ATA72 , 173 , 21 , 3 , 72 , 169 , B7 , 141 , 20 , 3 
DATA 169 , 140 , 141 , 21 , 3, 104 ,14 1,81,141,1 

DATA141.80, 141 ,8B, 76, 116,164,173,141, 
DATA201 , 5 , 208 , 23 , 165 , 207 , 20B , 19 , 165 , 1 



60 
16 
65 
70 

0 
75 
BO 
B5 
04 
90 
2 
95 
57 

100 DATA201 , 128 , 20B , 13 , 32 , 120 , 140 , 162 , 25 
5, 160 

105 DATA255 , 136 , 208 , 253 , 202 , 20B , 248 , 10B , 
BO, 141 
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BASIC Loader (continued) 







_ 



110 DATA162,16, 173, 134,2,72, 183,63, 141,1 
41 

115 DATA134.2, 104, 157,63, 141,202,173,33, 
208 

120 DATA72, 189, 63, 141 , 141 , 33, 20B, 104, 157 
,63 

125 DATA141 , 202 , 173 , 32 , 20B , 72 , 1B9 , 63 , 141 
.141 

130 DATA32 , 20B , 104 , 157 , 63 , 141 , 202 , 1B1 , 43 

,72 

135 DATA1B9 , 63 , 141 , 149,43, 104 , 157 , 63 , 141 
,202 

140 DATA 16 , 241 , 162 , 0 , 1B9 , 0 , 4 , 72 , 1B9 , 82 
145 DATA141, 157,0,4, 104, 157 , B2 , 141 , 189 , 0 
150 DATA216, 72, 189,93, 145 , 157 , 0 , 216 , 104, 
157 

1 55 DATA93 , 145 , 1B9 , 0 , 5 , 72 , 189 , 82 , 142 , 157 
160 DAT AO , 5 , 104 , 157 , 82 , 142 , 189 , 0 , 217 , 72 
165 DATA189, 93, 146, 157,0,217, 104, 157,93, 
146 

170 DATA 189 ,0,6,72, 189 , 82 , 143, 157,0,6 
175 DATA104 , 157 , 82 , 143 , 189 , 0 , 218 , 72 , 189 , 
93 

180 DATA147, 157,0,218, 104, 157,93, 147, 189 
,0 

1B5 DATA7, 72, 1B9.82, 144, 157,0,7, 104, 157 
190 DATAB2 , 144, 189 ,0,219, 72 , 189,93, 148,1 
57 

195 DATAO , 219 , 104 , 157 , 93 , 148 , 232 , 224 ,0,2 
OB 

200 DATA139,96,1,B",3,B,3,B,3,8 
205 DATAO , 74 , 0 , 74 , 0 , 74 , 254 , 246 ,14,1 
210 □ATA74,3,74,3,74,3 f 74,0, 140,0 
215 DATA140,0, 140,245,240, 13,0,0,-1 



Entering the Program 

To enter the program type in 
the Basic loader program, then 
SAVE it. Type RUN and the 
screen should flash, then clear 
to the normal Basic start up 
message. Note the much 
reduced free memory. Type in 
ashort Basic program and RUN 
it. Stop the program, hold 
down the shift key and press 
control. The screen should 
now change colour and have 
the Basic start up message on it. 

You are now in the second 
area. LIST and there should be 
no trace of the program you 
typed in. Shift control should 
take you back to the first screen 
and LIST will show your 



program is still there. If you 
wish to make a machine code 
copy of split 64 then first make 
sure you are in program area (a) 
before entering your machine 
code monitor. The start address 
is $8C00 and the end address 
S8D52. 



How it 
General 



Works — 



Split 64 takes advantage of the 
fact that the C64 operating 
system allows Basic to work 
within any free area of 
memory. To write your 
programs in another area of 
memory it is only necessary to 
change the pointers used by 
Basic in zero page. Change the 



pointers back and any program 
that was there before will still 
be there. It is also possible to 
change the area of memory 
used by the screen but when 
writing this program it was 
decided to store the second 
screen along with the second 
colour map above Basic 
memory. The shift control 
switch is operated by a simple 
interrupt wedge. 



How it Works — 
Machine Code 

Initialise Routine 

This routine sets up area (a) 
colours, memory start, memory 



end, and variable pointers from 
values fixed in Table 1. It then 
puts zero in the first three 
locations of Basic memory for 
areas (a) and (b). It then calls 
the swap routine, which stores 
the current screen and loads 
the contents of the second 
screen (rubbish at this time). 
Having swapped screens the 
Basic start up program is called 
which clears the screen and 
prints the start up message. This 
procedure is then repeated for 
area (a). Finally the wedge 
routine address is inserted into 
the IRQ vector, the normal 
vector address having been 
saved, then back to basic. 



Wedge Routine 

The wedge routine is entered 
on every IRQ. It first checks 
location $028D to see if the 
shift control keys are pressed. If 
not it jumps to the normal IRQ 
routine. If the keys are pressed, 
it checks that the cursor is off 
and that the computer is not in 
RUN mode. When all three of 
these conditions are satisfied it 
calls the swap routine. After 
swapping areas a large delay 
loop is executed to avoid 
multiple swaps. Control is 
then passed to the normal IRQ 
routine. 



Swap Basic 

This is the first part of the swap 
subroutine. A loop is used to 
exchange the current screen, 
border and character colours, 
with the contents of Table 2. 
The same loop is used to 
exchange the Basic pointers 
($2B-$38) again with the 
contents of Table 2. On start up 
Table 2 contains the fixed 
values for area (b). 



Swap Screen 

Once more a loop is employed 
to exchange the current 
screen and colour map stored 
above Basic memory. The 
exchange is done eight bytes at 
a time. Not the most elegant 
way to swap four areas of 
memory but it was chosen to 
cause minimum disruption to 
the screen during the swap. 



I 



INITIALISE ROUTINE 



8c 00 


a2 


10 




ldx 


#$10 : 


: index to tabl el 


3c02 


bd 


2e 


3d 


Ida 


$8d2e ? x : 


! tabl el 


8c05 


Sd 


36 


02 


sta 


*0286 : 


char, colour area a 


ScOS 


ca 






de x 




next 


8c09 


bd 


2e 


3d 


Ida 


*8d2e,x ! 


: tablel 


ScOc 


8d 


21 


dO 


sta 


$d021 : 


: screen colour area a 


ScOf 


ca 






dex 




:next 


SclO 


bd 


2e 


8d 


Ida 


$8d2e ? x s 


: tablel 


8cl3 


3d 


20 


dO 


sta 


$d020 s 


: border colour area a 


8cl6 


ca 






dex 




: n e x t 


Scl7 


bd 


2e 


3d 


1 da 


$8d2ev x i 


: tablel 


8cla 


95 


2b 




sta 


$2b,x s 


fbasic memory size area a 


3c lc 


ca 






dex 






8cid 


10 


f8 




bpl 


$8cl7 ! 


i ne x t 


Self 


a2 


02 




ldx 


#$02 : 




8c21 


a9 


00 




Ida 


#$00 


i zero first 3 bytes in 


8c23 


9d 


00 


OS 


sta 


$0300, x ! 


: both area a&b 


8c26 


9d 


00 


4a 


sta 


$4a00, x : 




8c29 


ca 






dex 






8c2a 


10 


f7 




bpl 


$8c23 : 




Sc2c 


20 


22 


e4 


jsr 


$e422 i 


: bas i c start up a 


8c2f 


20 


78 


3c 


jsr 


$3c73 i 


: swap area 


8c32 


20 


22 


e4 


j sr 


$e422 


: basic start up b 


8c 35 


20 


78 


8c 


j sr 


*8c7S 


: swap back 


8 c 38 


78 






se i 






Sc39 


ad 


14 


03 


1 ca 


$0314 i 


i irq 1 o w 

- 


3c3c 


43 






pha 




: save i t 


oCOQ 


ao 


i -_' 




1 Ha 
i Ua 




■11 y-l III Vj 1 1 


3c40 


48 






pha 




: save i t 


8c4i 


a9 


57 




1 da 


#$57 


slow address wedge 


8 c 43 


3d 


14 


03 


sta 


$0314 


: i r q vector 


3c46 


a9 


8c 




1 da 


#$3c 


shigh address wedge 


3 c 48 


3d 


15 


03 


sta 


$0315 


: i r q vector 


8c4b 


63 






pi a 




: recover address irq high 


3c4c 


3d 


51 


Sd 


sta 


$8d51 ! 


: s t o r e 


3c4f 


63 






pi a 




: recover address irq low 


8c 50 


Sd 


50 


3d 


sta 


$8d50 1 


: st or e 


8c53 


53 






cl i 






3c54 


4c 


74 


a4 


jmp 


$a474 


: ready for bas i c 
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Table 2 




WEDGE ROUTINE 










8c57 


ad 


Sd 


02 


Ida 


*028d : 


: control Shi ft press 


ied 


8c5a 


c9 


05 




cmp 


#*05 i 






8c5c 


dO 


17 




bne 


*8c75 : 


:if not goto normal 


i rq 


8c5e 


a5 


cf 




Ida 


$Cf ! 


tcursor off 




3c60 


dO 


13 




bne 


*8c75 : 


:if not goto normal 


i rq 


8c62 


a5 


9d 




Ida 


*9d 


: d \ rect mode 




8c64 


c9 


80 




cmp 


#*80 i 






8c66 


dO 


Od 




bne 


*8c75 i 


:if not goto normal 


i rq 


8c68 


20 


78 


8c 


t c=r 
j =» i 




1 awa|j cx i ere* 




8c6b 


a2 


f f 




Idx 


#*f f 






8c6d 


aO 


f f 




Idy 


#*f f 






8c6f 


88 






dey 




:delay to avoid key 


bounce 


8c70 


dO 


fd 




bne 


*8c6f : 






8c72 


ca 






dex 








8c73 


dO 


f8 




bne 


*8c6d i 






8c75 


6c 


50 


8d 


jmp 


(*8d50) s 


• j amp to normal irq 


rout i ne 




Table 3 



SWAP 


BASIC 


Z.PAGE LOCATIONS 




8c78 


a2 


10 




ldx 


#*10 


: index to table2 


8c7a 


ad 


86 


02 


Ida 


*0286 


= char colour current 


8c7d 


48 






pha 




: save i t 


8c7e 


bd 


3f 


8d 


Ida 


*8d3f , x 


: table2 


8c81 


Sd 


86 


02 


st a 


*0286 


s change char col our 


8c84 


68 






pla 




: recover char colour 


8c85 


9d 


3f 


8d 


sta 


*8d3f , x 


-'store in table2 


8c88 


ca 






dex 




:nex t 


8c89 


ad 


21 


dO 


Ida 


*d021 


scurrent screen colour 


8c8c 


48 






pha 




s save i t 


8c8d 


bd 


3f 


8d 


Ida 


*8d3f , x 


: table2 


8c90 


8d 


21 


dO 


sta 


*d021 


: change screen colour 


8c93 


68 






pla 




srecover screen colour 


8c94 


9d 


3f 


8d 


sta 


*8d3f , x 


"•store in table2 


8c97 


ca 






dex 




:next 


Sc93 


ad 


20 


dO 


Ida 


*d020 


^current border colour 


8c9b 


48 






pha 




s save i t 


8c9c 


bd 


3f 


8d 


Ida 


*8d3f > x 


: table2 


8c9f 


3d 


20 


dO 


sta 


*d020 


: change border colour 



r 




Table 3 continued 



3ca2 


63 






pla 




'.recover border colour 


3ca3 


9d 


3f 


8d 


sta 


*8d3f , x 


:store in table2 


8ca6 


ca 






dex 




:nex t 


8ca7 


b5 


2b 




Ida 


*2b, x 


: basic memory size 


ocav 








r\ ~* 
yj 1 1 a 




■ a \/ a 


Scaa 


bd 


3f 


8d 


Ida 


*8d3f , x 


: table2 


Scad 


95 


2b 




sta 


*2b, x 


:basic memory size ... 


8caf 


68 






pla 




s recover 


8cb0 


9d 


3f 


8d 


sta 


*8d3f > x 


sstore in table2 


8cb3 


ca 






dex 




: nex t 


8cb4 


10 


f 1 




bpl 


*8ca7 


: repeat for other z -page 
locat i ong 




Table 4 



SCREEN SWAP ROUTINE 



8cb6 


a2 


00 




Idx 


#$00 : 


index for screen+col our mem 


3c bS 


bd 


00 


04 


Ida 


*0400,x : 


screen mem 


8c bb 


43 






pha 




: save i t 


Scbc 


bd 


52 


Sd 


Ida 


*8d52, x : 


second screen 


Scbf 


9d 


OO 


04 


sta 


$0400, x i 


: store in screen 


8cc2 


68 






pla 




: recover 


8cc3 


9d 


52 


3d 


sta 


*8d52> x : 


store in second screen 


Scc6 


bd 


00 


d8 


Ida 


*d800>x s 


^colour mem 


8cc9 


43 






pha 




! save i t 


■~ i _ _ _ 


bd 


5d 


91 


Ida 


*915d,x : 


^second colour mem 


Seed 


9d 


00 


dS 


sta 


*dSOO, x : 


istore in colour mem 


ScdO 


63 






pla 




i recover 


Scdl 


9d 


5d 


91 


sta 


*915d,x : 


istore in second colour mem 


Scd4 


bd 


00 


05 


Ida 


$0500? x s 




Scd7 


43 






pha 






•~ 1 _ J. - • 

oCu o 


bd 


cr- — • 


Se 


Ida 


*8e52 ? x : 


• 


3cdb 


9d 


00 


05 


sta 


$0500, x : 




Scde 


63 






pla 






Scdf 


9d 


52 


Se 


sta 


*Se52,x : 


: same but plus 256 


3ce2 


bd 


OO 


d9 


Ida 


$d900 ? x ! 




3ce5 


48 






pha 






Sce6 


bd 


5d 


92 


Ida 


*925d>x I 




8ce9 


9d 


00 


d9 


sta 


*d900> x : 




Scec 


63 






pla 






Seed 


9d 


5d 


92 


sta 


*925d,x : 




8c fO 


bd 


OO 


06 


Ida 


*0600,x ! 




3cf3 


48 






oha 







r 
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Table 4 (continued) 



Scf4 


bd 


52 


8f 


Ida 


*>Sf52, x : 




8cf7 


9d 


00 


06 


sta 


$0600.- x : 




Scfa 


68 






pi a 




: same but plus 51-l 


3cf b 


9d 


52 


3f 


sta 


*8f5^ ? x : 




8cf e 


bd 


00 


da 


1 da 


$daOO*x : 




SdOl 


48 






pha 






Sd02 


bd 


5d 


93 


Ida 


*935d ? x : 




Sd05 


9d 


00 


da 


sta 


$daOO? x J 




SdOS 


68 






pi a 






3d 09 


9d 


5d 


93 


sta 


*935d» x : 




8d0c 


bd 


00 


07 


1 da 


$0700 > x ! 




8d0f 


48 






pha 






8dl0 


bd 


52 


90 


Ida 


*9052> x : 




Sdl3 


9d 


00 


07 


sta 


*0700 ? x : 




8dl6 


63 






pi a 




: same but plus 763 


8dl7 


9d 


52 


90 


sta 


*9052 ? x : 




8dla 


bd 


00 


db 


Ida 


*db00 ? x ! 


i 


8dld 


43 






pha 






Sdle 


bd 


5d 


94 


Ida 


*945d ? x : 




3d21 


9d 


00 


db 


sta 


*dbOO ? x : 




3d24 


63 






pla 






3d 25 


9d 


5d 


94 


sta 


*945d,x : 




8d2S 


eS 






i n x 




: ne x t 


3d29 


eO 


00 




cpx 


#*00 ! 


: 255 done in each block 


8d2b 


dO 


8b 




bne 


*3cb8 ! 


: i f not then go back 


3d2d 


60 






rts 




: re t urn 




TABLES 

Contents shown as at start- 



Tablet 






Table2 


Sd2e 01 


: 1 oui s 


-a 


8d3f 


01 


3d2f 08 


:high 




3d40 


4a 


8d30 03 


: 1 oui e 


.a 


Sd41 


03 


8d31 08 


: h i gh 


ii 


8d42 


4a 


8d32 03 


: 1 out s 


-arrays 


Sd43 


03 


8d33 08 


: h i g h 


ii 


3d44 


4a 


8d34 03 


: 1 dw e 


-arrays 


8d45 


03 


8d35 OS 


:high 




Sd46 


4a 



8d36 


00 


:low b/active string 


8d47 


00 


3d37 


4a 


thigh 


Sd43 


8c 


Sd33 


00 


How t/ " 


8d49 


OO 


8d39 


4a 


:high 


3d4a 


8c 


8d3a 


00 


:low mem top 


8d4b 


00 


8d3b 


4a 


thigh " 


8d4c 


Sc 


8d3c 


fe 


: screen colour 


3d4d 


f5 


8d3d 


f6 


i border colour 


8d4e 


fO 


3d3e 


Oc 


schai colour 


8d4f 


Od 



Address for IRQ 

Sd50 31 
8d51 ea 




This month Garry 



Marshall shows you 



how to create artificial 



landscapes on your 



PROGRAMMING 

PROJECTS 





project 

COMPUTER-GENERATED GRAPHICS 
are increasingly finding their way into 
films. Among the most impressive and 
realistic effects that have been seen are 
the entirely artificial landscapes created 
for some of the Star Wars films. This 
month's project involves the creation of 
an artificial landscape of this kind. 

Of course, far more sophisticated (and 
expensive!) equipment than a 
C64 is needed to display graphics of a 
quality that is suitable for use in films. But, 
as we shall see, it is not too difficult to 
write programs that produce the basic 
effects, and the quality of the results is 
surprisingly good. 

The theory the provides the basis for 
the creation of these landscapes is known 
as fractal geometry. Without going too 
deeply into the theory, the idea behind a 
fractal curve is that it is not one or two- 
dimensional, but has a dimension which is 
a fraction. Curves of this kind describe, for 
example, rough surfaces, with the 
degree of roughness determining the 
fraction giving the dimension of the 
fractal curve. They also describe many 
other naturally occurring curves, such as 
coast lines and hillsides, and this is what 
makes them eminently suitable for 
simulating landscapes. 

The project involves starting with a 
triangle and, by means of a simple 
procedure deriving from fractal 
geometry, sub-dividing it to give a graphic 
display that resembles a mountain. The 
further the sub-division process is carried 
t, the more realistic the result will 
pear. 



solution 

basic idea of the procedure for 
ing the mountain landscape is 
..rated in Figures 1 and 2. The first 
.jgure shows that taking a triangle, finding 
the mid-points of its sides and joining 
them gives four smaller triangles. 
Repeating the process on each of the 
r triangles gives a finer triangular 
and the more it is repeated, the 



Figure 1. Sub-dividing a triangle 





Figure 2. Sub-dividing and perturbing 



Programming 



Program Listing 




finer the triangular mesh becomes. But 
the results of this procedure do not 
resemble any natural phenomenon, 
simply because of their regularity. This is 
not a property to be found in nature, 
which is characterised by randomness. 

We can produce an element of 
randomness by perturbing the mid-point 
of each side by a random amount the 
variation of which is proportional to the 
length of its side. The left-hand 
illustration in Figure 2 shows the result of 
doing this and drawing the four smaller 
triangles produced by one sub-division. 
The right-hand illustration shows what 
happens after two sub-divisions, 
demonstrating that none of the triangles 
can be drawn until all the mid-points have 
been found and then perturbed. 
Continuing this process will give an 
increasingly mountain-like display. The 
range of the perturbation for the mid- 
point of each side or, if you like, the 
degree of proportionately between the 
range and the length of the side, 
effectively determines the fractional 
dimension of the final result. Different 
values for the range give quite different 
appearances to the mountain landscapes. 

This gives us the following form for a 
graphics program to draw an artificial 
mountain landscape. It should declare the 
arrays to be used, and there will be 
several, because we must store the points 
for all the triangles in the final display as 
we cannot draw any of them until all their 
positions have been computed. Then it 
must read the co-ordinates of the corners 
of the basic triangle, prepare the high- 
resolution graphics screen, and carry out 
the sub-division of each side to give the 
points at the corners of the resulting 
triangles. To begin with, we will ignore- 
the perturbations of the mid-points that 
introduce the randomness. This simplifies 
the program a little, gives results such as 
those in Figure 1, but provides a program 
which we can easily generalise to produce 
results like those in Figure 2. Finally, when 
(he program has found the points for all 
the triangles, it only remains to plot them. 

The main program based on this 
scheme is: 



10 DIMX(48), Y(48), S(3), T(3), U(12), V(12), 
XT(4d), YT(48} 
20 FOR K=1 TO 3 
30 READ X(K), Y(K) 
40 NEXT K 

50 DATA 150, 50, 250, 150, 50, 150 
60GOSUB500: REM HI-RES SCREEN 
70 FOR N=0 TO 1 
80 FOR K=1 TO 4 N 

90 COSUB 4000: REM SUB-DIVIDE THE 

TRIANGLES 

100 NEXT K 

110 FOR K=1 TO 4 (N+l)«3 
120X(K)=XT{K): Y(K)=YT(K) 
130 NEXT K 
140 NEXT N 




SC3), TC3) , UC12). UC12) 



10 DIMXC48), YC48), 
XTC4B ) , YTC4B) 
20 FOR K-l TO 3 
30 READ XCK), YCK) 
40 NEXT K 

50 DATA 150, 50, 250, 150, 50, 150 
GO G0SUFJ500: REM HI-RES SCREEN 
70 FOR N-0 TO 1 
BO FOR K-l TO 4"N 

90 GOSUB 4000: REff SUB-DIUIDE THE TRIANGLES 
100 NEXT K 

110 FOR K-l TO 4"CN+1)»3 

120 XCK ) -XTCK ) : YCK) -YTC K) 

130 NEXT K 

140 NEXT N 

150 FDR K-l TO IB 

1B0 FOR J-l TO 3 

170 SCJ)-XCJ+3«CK-1)) : TCJ)-YCJ+3*CK-D) 
1B0 NEXT J 

190 GOSUB 3000: REM PLOT EACH TRIANGLE 
200 NEXT K 
210 END 

500 POKE 53272, PEEKC53272) OR B 

510 POKE 53265, PEEKC53265) OR 32 

520 FOR 1-8192 TO 16192: POKE I, 0: NEXT I 

530 FOR 1-1024 TO 2023: POKE I, 22: NEXT I 

540 RETURN 

1000 RO-INTCR/B) : CO-INTCC/B) 

1010 L-R AND 7 

1020 BIT-7 - CC AND 7) 

1030 BYTE-B192 + R0*320 + C0»B + L 

1040 POKE BYTE, PEEK C BYTE) OR 2"BIT 

1050 RETURN 

2000 DX-X2-X1: DY-Y2-Y1 

2010 IF DX-0 THEN 2070 

2020 FOR C-Xl TO X2 STEP SGNCDX) 

2030 R-INTCY1+CC-X1)*DY/DX) 

2040 GOSUB 1000: REM PLOT POINT 

2050 NEXT C 

2060 RETURN 

2070 C-Xl 

2080 FOR R-Yl TO Y2 STEP SGNCDY) 

2090 GOSUB 1000: REM PLOT POINT 

2100 NEXT R 

2110 RETURN 

3000 X1-SC3): Y1-TC3) 

3010 FOR P-l TO 3 

3020 X2-SCP): Y2-TCP ) 

3030 GOSUB 2000: REM DRAW LINE 

3040 X1-X2: Y1-Y2 

3050 NEXT P 

3060 RETURN 

4000 FOR M-l TO 3 

4010 SCM)-XCM+3»CK-D) : TCM)-YCM+3*CK-1 ) ) 
4020 NEXT fl 



r 



150 FOR K=1 TO 16 
160 FOR ]=1 TO 3 

170 S{J)=x(J+3*(K-1)): T(i)=Y(J+3**(K-1» 




Program Listing (cont.) 



180 NEXT ] 
190 GOSUB 
TRIANGLE 
200 NEXT K 
210 END 



3000: REM PLOT EACH 



Here, the arrays are declared in line 10. 
The data, which is at line 50 and gives the 
positions of the corners of the initial 
triangle, is read by lines 20 to 40. Line 60 
calls the now-familiar subroutine, starting 
line 500, for preparing the htgh- 
.olution graphics screen. 
Lines 70 to 140 calculate and store the 
positions of the corners of all the triangles 
that result from the sub-dividing process. 
The outer loop variable, N, determines 
how many stages of sub-division occur. In 
the program as presented, there are two 
stages, which are necessary to bring us to 
the position shown in the right-hand 
illustration of Figure 1. The first sub- 
division is done with N^O arfd the second 
with N-1. 

The inner loop variable, K, counts the 
number of triangles to be sub-divided. 
Initially, there will be one, and the value 
of 4 N when N=0 is 1. After the first 

s 



4030 GOSUB 5000 
4040 FOR n-1 TO 
4050 XTCf1+12*CK 
4060 NEXT ri 
4070 RETURN 
5000 Al-CSCD-S 
5010 Bi-cscn-s 
5020 C1-CSC2)-S 
5030 A-0.5*CSC1 
5040 D-0.5*CTC1 
5050 B-0.5»C5C1 
5060 E-0.5*CTC1 
5070 C=0.5*CSC2 
5080 F-0.5*CTC2 
5050 UCD-SC1) : 
5100 UCn-TCl): 
5110 UC23-A: UC 
5180 UC2)=D: UC 
5130 UC3)-B: 
5140 UC3)=E: 
5150 UC5)-C: 
5150 UC5)-F: 
5170 RETURN 



READY . 



: REP1 SUB-DIU IDE THIS TRIANGLE 
12 

-1))-UCM): YTCr1+12*CK-l))-UCM) 



UC 
UC 
UC 
UC 



C2) 5*0 .2*CRNDC0D-0 .53 

C3) )*0.2*CRNDC0)-0.5) 

C3) )*0 .2*CRNDC0)-0.53 

)+SC2))+Al 

3+TC2) )+Al 

D+SC333+B1 

)+TC3) D+Bl 

)+SC3»+Cl 

}+TC 3D )+Cl 

UC43-SC2) 

UC45-TC2) 
6)-A: UC 12)-A 
5)-D: UC125-D 
B)-B: UC11)-B 
B)-E: UC11D-E 
9)-C: UC103-C 
9)-F: UC10)=F 



UC7)-SC3;> 
UC7)-TC3D 




Q) 



4000 



5000 



5000 



4000 



b) 






Figure 3. The use of arrays to interface the 
subroutines at lines 4000 and 5000. a) First sub- 
division b) Second sub-division. 
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Figurem 4. Names used by subroutine for 
subdividing a triangle. 


S(1) 






B k- 












~A A 




S(3) 


c 




S(2) 



of 4 s when N=1. (Although the program, 
as listed, goes no further than this, after 
the second sub-division each of four 
triangles will have been divided into four 
to give 4*4 or A 1 triangles, and so on. In 
this way, the program is ready to be 
extended to create more detailed 
graphics). 

Line 90 calls a subroutine starting at 
line 4000 to sub-divide the triangles that 
are repeatedly passed lo it. This 
subroutine places thexandy co-ordinates 
of the corners of the triangle that is being 
dealt with in the arrays S and T. Then it 
calls the subroutine starting at line 5000 to 
do the actual sub-division. After it has 
done the dividing up, this subroutine 
leaves the x and y co-ordinates of the 
corners of the four triangles that result 
from the sub-division in the arryas U and 
V, respectively. The contents of these 
arrays are then transferred to the arrays XT 
and YT. This gives us the subroutine as: 

4000 FOR M=1 TO 3 

4010 S(M)=X(M+3*(K-1)): T(M)=Y(M+3* 
(K-1)) 

4020 NEXT M 

4030 GOSUB 5000: REM SUB-DIVIDE THIS 
TRIANGLE 

4040 FOR M=1 TO 12 

4050 XT(M+12-(k-1))=U(M): YT(M+12*{K- 

1))-V{M> 

4060 NEXT M 

4070 RETURN 

The interface between the 
subroutines starting at 4000 and 5000 is 
illustrated in Figure 3, showing how they 
communicate by means of the arrays. The 
top illustration shows what happens with 
the initial sub-division. This does not 
exactly make it clear that all the arrays are 
needed, but the bottom illustration does 
so by showing how the arrays are used for 



the second sub-division. 

Figure 4 shows how the x co-ordinates 
of the corners of a triangle are named 
during a sub-division as performed by the 
subroutine starting at line 5000. The 
subroutine itself is: 

5000 A=0.5»(S(1)+S(2) 

5010 D=0.5*(T(1)+T(2)) 

5020 B=0.5'(S(1)+S(3)> 

5030 E=0.5*(T(1)+(T(3)) 

5040 C=0.5'(5(2)+S(3)) 

5050 F=0.5'(T(2)+T(3)) 

5060 U(1)=S(1): U(4)=S(2>: U(7)*S(3) 

5070 V(1)=T(1); V(4>=T(2): V(7)=T(3) 

50B0 U(2)=A: U(6)=A: U(12)=A 

5090 V(2)=D: V(6)=D: V(12)=D 

5100 U(3)=B: U(8)=B: U(11)=B 

5110 V(3)=E: V(8>=E: V(11)=E 

5120 U(5)=C: U(9)=C: U(10)< 

5130 V(5)=F: V(9)=F: V(10)=F 

5140 RETURN 

After this, lines 110 to 130 copy copy 
the positions of the triangles fromXT and 
YT to X and Y so that they will be available 
for the next round of sub-dividing. 

When the positions of all the triangles 
have been found they are plotted by lines 
150 to 200. Here the inner loop from line 
160 to 180, controlled by J, passes the co- 
ordinates of each triangle in turn to the 
arrays S and T so that the subroutine 
starting at line 3000 can be called to plot 
the triangle. The outer loop, controlled by 
K, ensures that all the triangles are dealt 
with. 

The triangle-plotting routine simply 
calls our much used line-drawing 
subroutine (which begins at line 2000) 
three times. The line drawing routine 
draws a line from (XI, Y1) to (X2, Y2) and 
this gives the triangle-plotting routine as: 

300OX1=S(3): Y1=T(3) 
3010 FOR P=1 TO 3 



3020 X2=S(P): Y2=T(P) 

3030 GOSUB 2000: REM DRAW LINE 

3040 X1=X2: Y1=Y2 

3050 NEXT P 

3060 RETURN 

Apart from the previously-used 
routines, this gives the complete program 
for creating the regular triangular mesh. It 
is now a simple matter to perturb the 
points at the corners of the triangles 
randomly before the triangles are plotted, 
so that we get our moutain. The 
perturbing can be done in the innermost 
subroutine, the one starting at line 5000, 
by adding to the co-ordinates a random 
amo*int with a variation that is 
proportional to the length of the side 
being bisected. For simplicity, the 
perturbation has been taken as a random 
amount between +/- 0.1*(length of the 
line in the x-direction). This gives the 
amended subroutine as: 

5000 A1=(S(1)-S(2))*0.2-(RND(0)-0.5) 
5010 B1=(S(1)-S(3))'0.2'(RND(0)-0.5) 
5020 CHS(2>-S(3))*0.2*(RND(0>-0.5) 
5030 A=0.5*(S(1)+S(2)) + A1 
5040 D=0.5*(R(1)+T(2)> + A1 
5050 B=0.5-(S(1)+S(3)) +B1 
5060 E-0.5*(R(1)+T(3))* B1 
5070 C=0.5*(S(2|*S(3)) + C1 
5080 F=0.5*(T(2)+T(3)) + CI 
5090 U(1)=S(1): U(4}=S(2): U(7)=S(3J 
5100 V(1)=T<1): V(4)=T(2): V(7)=T(3) 
5110 U(2)=A: U(6)*A: U(12>*A 
5120 V(2>=D: V(6)=D: V(12)=D 
5130 U(3)=B: U(8)=B: U(11)=B 
5140 V(3)=E: V(8)=E: V(11)=E 
5150 U(5)=C: U(9)=C: U(10)< 
5160 V(5)=F: V(9)=: V(10)=F 
5170 RETURN 

The complete listing of the program to 
create the artificial landscape is given as 
Figure 5. 



Further developments 

The program can be extended to take the 
sub-division process further, so 
producing a more detailed landscape. 
The program only needs a few numerical 
changes for this which follow at once 
from the number of triangles there will be 
in the new arrangement. Don't forget to 
change the dimensions of the arrays! The 
way that the randomness is introduced 
can be made much more general, and the 
constant of proportionately for the range 
of the perturbations can be changed. You 
may like to experiment with this to see if 
you can characterise the differences 
between the types of landscapes that are 
produced by significantly different values 
for the constant of porportionality. 
Remember that because the perturba- 
tions are random, each rub of a program 
gives a different picture, although one 
that belongs to the same family. 
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Setting up 

TYPE IN THE LISTING PROVI- 
ded and save it on a disk or tape 
before attempting to run it. 

Now RUN it and if all has 
gone smoothly, you will be 
given the option of saving the 
4K Machine Code File to the 
device of your preference. 

You should make it a habit, 
to 'verify' all programs that you 
save so as not to end up being 
disappointed, if you are not 
able to reload the program. It 
would also be a good idea to 
make a second copy, just in 
case you 'scratch' the first by 
accident. 

For those of you who are 
not fortunate enough to enter 
the data correctly first time, 
you will be given one of two 
possible error reports (or 
maybe both). 

These two error reports are 
as follows: 

1 Insufficient/Too Many 
Data Items Error. 

2 Checksum Error. 

If you get error 1, then you 
will almost certainly get error 
2 as well. If you get error 2 
on its own, then you have 
entered some of the Data Items 
incorrectly e.g. you may have 
entered 250 instead of 240. 
Error 1 is self explanatory. 

It would be useful to have a 
friend close by, to read out the 
data statements to you, in order 
to minimise the risk of errors. 



80 



Using the Program 

Load the code by typing - 



Load " ",1,1 or Lad 
"CEN'64.",1,1 for the tape 
version 

Load "GEN'64.",8,1 for the disk 
version 



Now type 'SYS 64738' to cold 
start the machine before using 
the program. Type 'SYS 52882' 
to enter the Characater 
Generator. 

The Program resides at 
$CO0O (49152 decimal) which is 
well out of the reach of Basic. 

The user has the ability, 
using this versatile utility, to 
write a Basic program of up to 
10K and atthesametime.being 
able to enter and exit the 
Character Generator at will. 

It is important to note that 
the data for your user defined 
graphics, resides in a 2K block 
- ($3000-$37FF> or 12288 to 
14335 decimal and the 
complete set may be accessed 
by typing 'POKE 53272,28'. 

Users who delight in 
designing games, using high- 
resolution and multi-colour 
characters, will find this 
program" an invaluable aid for 
their graphics. A maximum of 
256 Characters (which is more 
than enough) may be 
redefined. I have allocated 
these 256 Characters into four 
Subsets of 64 Characters each. 

Alert users will notice, that 
when you enter the Character 
Generator for the first time, the 
standard PET character set is 
loaded into the user definable 
area, but this only happens 
once. 

Try this exercise. Switch off 
the Machine. Load in the 
Character Generator. Type 
'SYS 64738' and POKE 53272. 
You will not note that all the 
characters have turned to 
garbage. Type SYS 52882 and 
press 'Q' for quit. You should 
be back in Basic at this stage. 
Now type POKE 53272,28. 
Notice that the PET character 
set has now been loaded down. 
Type POKE 12288,255 and press 
' 'and you will noticeastraight 
line going across the top of the 



Character Generator — User Function List 



Function 


Name 


Keypress(es) 


01. 


cursor home 


*Clr/Home' 


02. 


clear grid 


Shift ♦ 'Clr/Home' 


03. 


cursor right 


'Csrs l/r' 


04. 


cursor left 


Shift+'Crsr l/r' 


05. 


cursor down 


'Crsr u/d' 


06. 


cursor up 


Shift+ 'Crsr u/d' 


07. 


fill 


■ 


08. 


delete 


'Del' 


09. 


space 


ipc 


10. 


new line 


'Ret' 


11. 


quick fill 


r 


12. 


quick rub 


TV 
D 


13. 


enable wrap mode 


'W 


14. 


disable wrap mode 


'W 


15. 


select character 


1 1 


16. 


set+ 


V 


17. 


set- 


* 1 


18. 


next char 


1 > 


19. 


last char 




20. 


enable multicolour 


'M' 


21. 


disable multicolour 


'M' 


22. 


speed cursor 


r 


23. 


slow cursor 


• 


24. 


update cursor colour 




25. 


update multicolour 1 


*T 


26. 


update multicolour 2 


'? 


27. 


update screen Colour 




28. 


shift right 


'F7' 


29. 


shift left 


'F5' 


30. 


shift down 


'F3' 


31. 


shift up 


'FT 


32. 


90° Rotate 


'A' or 'C 

• 


33. 


invert character 


T 


34. 


180° rotate 


'R' 


35. 


transfer character 


T 


36. 


transfer set 


CTRL+T 


37. 


reverse video 




38. 


recall 


'£' 


39. 


load characters 


v 


40. 


save characters 


•s' 


41. 


quit 


•Q' 



Character Generator 



' ' sign. Now type SYS 52882 
and you will notice that this 
character has not been 
changed. 

The Program uses a very 
powerful Raster Interrupt, to 
enable the CBM set and the 
user defined graphics to be 
displayed at the same time. 
Their routine also handles such 
effects as split screen colour 
etc. 

Reading the next section 
should convince you of the 
value of this extremely 
powerful Character Generator. 



Select 

When you first use the 
Character Generator, you will 
notice four lines to the right of 
the grid, which generate status 
reports. The most significant of 
these is the first, i.e. Character 
Mode. On running the 
program, this is set to 'Edit', 
which is the default mode. In 
this mode, you are able to 
access all of the listed 
functions. However, if you 
press ' ', then the character 
mode will change to select. 



Description 

Positions cursor in top left of grid. 

As above and clears current character. 

Moves cursor right one space. 

Moves cursor left one space. 

Moves cursor down one space. 

Moves cursor up one space. 

Fills space at current cursor location. 

Deletes space to left of cursor. 

Rubs space to right of cursor. 

Places cursor on left of next line down. 

Fills left-right on current line. 

Deletes left-right on current line. 

Allows code to move off the edge of the grid and appear on 
the opposite side 

Keeps cursor within grid boundaries. 

Enables user to select the next character to be edited. 

Advances to next subset of 64 chars. 

Returns to previous subset. 

Allows the user to move to the next character without 

having to enter 'Select Mode' - see notes on 15. 

As above but moves backwards rather than forwards. 

Enables character multicolour mode. 

Disables character multicolour mode. 

Speeds cursor's response. 

Slows cursor response 

Self explanatory. 

Self explanatory 

Self explanatory 

Self explanatory (Split screen colour) 

Moves complete character right (1 Bit). 

Moves complete character left (1 bit). 

Moves complete character down (1 bit). 

Moves complete character up (1 bit). 

Rotate character through 90 degrees: 'A' - anticlockwise 

'C clockwise 

Flips character upside down. 

Creates Mirror image of character through the vertical axis. 

(Works in hi/res & multicolour modes). 

Copies one character in the current set into another 

character in the same set. 

Transfers one complete set to another. 

'9'=Rvs Char: Ctrl+'g = Rvs Set. 

Recalls 'buffered' character (See special notes on this 
function). 

Load character sets from tape or disk. 

Saves character sets to tape or disk, (note: pressing 'S' will 

save the current subset (64 chars.); pressing 'Ctrl'+'S' will 

save the entire four sets. 

Exit to Basic. 



Immediately, you will see 
that the cursor is no longer on 
the grid, but is now flashing on 
a line of characters which are 
directly below the grid. The 
only keys valid in this mode are 
Shift, Crsr l/r ' 'E'. 

Use the Crsr l/r key in the 
normal way (in conjunction 
with the Shift key) to locate the 
character you wish to edit. Now 
press 'E' and the character 
mode will return to 'Edit' and 
you will be able to experiment 
with the character you have 
selected. 

Alternatively, as mentioned 
in the Function List, you may 
use functions 18 and 19 (Next 
Char & Last Char) to achieve 
the same result without ever 
having to enter the Select 
Mode. 

Transfer Set 

To transfer a set of 64 characters 
to another location, first press 
CTRL & T. You should now see 
the Character Set no. (fourth 
status line) flashing. 



Using the functions 'Set +' 
and 'Set -', choose the set that 
you want the original to be 
transferred to. 

Now press 'Return', the 
transfer will be completed and 
normal operation restored. 

Recall 

Have you ever made a 
complete mess of a sprite or 
UDG that you were designing 
and wished you could restore it 
to its original form. This is what 
'Recall' is for. 

Every character you use is 
automatically 'buffered' so that 
in the event of you using the 
functions excessively, pressing 
'Recall' will restore the 
character to its original form. 

A Finishing Note 

Do not fry to define your first 
blockbusting character set 
immediately. Mess around 
with the various functions, 
until you become familiar with 
them. I hope you enjoy using it. 
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20 PR I NT "C CLEAR 3 " : REM CLR/HOME 

30 P0KE53281,0:P0KE53280,0 

40 PR I NT "C YELLOW 3 PLEASE WAIT, WRIT 

IN6 CODE TO MEMORY 

50 SA=49152:BC=0:TL=0 

60 REAOA: IFA— 1THENB0 

70 POKESA+BC, A: BC-BC+1 : TL-TL+A: GOT 
060 

80 REn * ERROR TRAPPING * 

90 I FBC< > 3BB2THEN400 

100 IFTLO4B3826THEN400 

110 P0KE532B0, 14:P0KE532B1,6:PRINT 

"CCLEARJCc 73": REM CLR/HOME S LIGH 

T BLUE C CTR 

L+'7' ) 

120 PRINT"CD0UIN30KAY - CODE ENTERE 
D CORRECTLY 

130 PRINT"CDC3UIN3YOU HAY NOW SAUE T 
HE PROGRAM CODE TO 
140 PRINT"EITHER TAPE OR DISK." 
150 DU-1 

160 INPUT"CD0UN3UIHICH DEUICE C T 0 
R D ) : ";D$ 

170 ifds<> "d"andd$<> "t"then1g0 
1b0 ifd$«"d"thendu=8 
190 ifdu=8then220 

200 print"CDOun:place eruson3blank 
crus0ff3 cassette in c2n unit, red 

IND" 

210 PRINT"AND PRESS STOP/EJECT. ":G 
0T0230 

220 PRINT'TLACE CRUS0N3F0RMATTEDCR 
US0FF3 DISK IN DRIUEttO CDEU 8)." 
230 PRINT"CDOUIN3CDDUN3PRESS '*' UiH 
EN READY . C DOWN 3 1 DOWN 3 " 
240 P0KE19B,0 

250 GETAS: I FA$<> "* "THEN250 

260 P0KE198,0:PaKE2,DU:SYS52992 

300 PRINT"CD0UN3PLEASE UERIFY CODE 

BY TYPING : H 
310 PRINT"CD0UIN3TAPE UERSIDN - 'UE 
RIFY"CHRSC34:»CHR$C34;)" ,1,1'" 
320 PRINT"CD0WN3DISK UERSION - ' "JE 
R I FY "CHRSC 34 5 "GEN ' 64 . "CHRS C 34 V , B , 
1 ' " 

330 PRINT"CD0WN3THIS IS A PRECAUTI 
ONARY MEASURE TD MAKE " 
340 PRINT"SURE THAT THE CODE HAS B 
EEN SAUED 



350 PRINT" CORRECTLY." 
360 END 

400 REn * ANALYSE ERRORS AND REPOR 
T * 

410 IFTL<>483826THENPRINT"CD0U)N3CH 

ECKSUn ERROR. " 

420 IFBC-38B2THEN460 

430 IFBC<3BB2THENPRINT"CD0UN3INSUF 

FICIENT "; : GOTD450 

440 PR I NT "C DOWN 3 TOD MANY "; 

4S0 PRINT"DATA ITEMS." 

460 PRINT"CD0U)N3CDC3WN3CHECK DATA S 



TATEMENTS 
1000 DATA 
, 148, 133, 
1010 DATA 
, 160, 138, 
1020 DATA 
, 1E9, 140, 
1030 DATA 
, 147, 133, 
1040 DATA 
, 160, 177, 
1050 DATA 
, 160, 160, 
1060 DATA 

, 133, 146, 
1070 DATA 
, 173, 131, 
10B0 DATA 
, 143, 132, 
1090 DATA 
, 131, 14B, 
1100 DATA 
, 186, 133, 
1110 DATA 
, 133, 131, 
1120 DATA 
, 147, 32, 
1130 DATA 
141, 32, 
1140 DATA 
6, 169, 7 
1150 DATA 

, 0. 192, 
1160 DATA 
4, 169, 1 



CAREFULLY 
160, 151 

142, 
153, 

143, 
160, 

133, 
16B, 

144, 
141, 

185, 
160, 

160, 
129, 

160, 
132, 

143, 
149, 

133, 
131, 

133, 
160, 

132, 
160, 
, 148, 
134, 
210, 

6, 
208, 
40, 



:STOP 
146, 
160, 130 
160, 160, 

136, 142 
141, 131, 

174, 160 
131, 169, 
148, 133 
130, 133, 
184, 1B0 
174, 160, 
131, 136 
146, 129, 
141, 143 
133, 160, 
140, 143 

146, 160, 
160, 186 

136, 129, 
146, 160 

147, 133, 

137, 148 
160, 147, 

143, 134 
143, 142, 
255, 169 
141, 33, 208, 
162 

169, 160, 



137, 


148 


186, 


160 


160, 


136 


160, 


160 


146, 


160 


160, 


160 


131, 


148 


186, 


141 


160, 


141 


146, 


129 


148, 


160 


133, 


140 


160, 


169 



1170 DATA 



73, 8, 
157, 87, 

157, 87 

218, 202, 208, 243, 189 
157, 11, 4 
189, 29, 192. 157, 91, 
157, 11 
216, 169, 3, 157, 91, 2 



Character Generator 




Program Listing (conl.) 



IB, 169, 160, 157, 171 

HBO DATA 4, 157, 211, 4, 157, 25 

1, 4, 157, 35, 5 

1190 DATA 157, 75, S, 157, 171, 2 
16, 73, 1, 157, 75 

1200 DATA 217, 157, 211, 216, 157 
, 251, 216, 157, 35, 217 
1210 DATA 232, 224, 29, 20B, 195, 
159, C, 133, 251, 133 

122C DATA 253, 170, 169, 4, 133, 

252, 159, 216, 133, 254 

1230 DATA 160, 0, 159, 160, 145, 

251, 169, 4, 145, 253 

1240 DATA 200, 192, 11, 20B, 243, 

165, 251, 24, 105, 40 
1250 DATA 133, 251, 133, 253, 165 
, 252, 105, 0, 133, 252 
1260 DATA 105, 212, 133, 254, 232 
. 224, 11, 208, 217, 169 
1270 DATA 72, 133, 251, 169, 4, 1 
33, 252, 162, 176, 160 
12B0 DATA 9, 138, 145, 251, 153, 
40, 4, 165, 251, 24 

1290 DATA 105, 41, 133, 251, 165, 

252, 105, 0, 133, 252 
1300 DATA 136, 232, 224, 1B4, 20B 
, 231, 162, 0, 189, 58 
1310 DATA 192, 157, 211, 4, 189, 
74, 192, 157, 251, 4 
1320 DATA 189, 198, 193, 157, 35, 

5, 232, 224, 16, 208 . 
1330 DATA 233, 96, 120, 173, 14, 
220, 41, 254, 141, 14 
1340 DATA 220, 173, 17, 208, 41, 
127, 141, 17, 208, 169 
1350 DATA 132, 141, 20, 3, 169, 1 
93, 141, 21, 3, 169 

1360 DATA 177, 141, IB, 208, 173, 

25, 208, 9, 1, 141 
1370 DATA 26, 20B, BB , 96, 173, 2 
5, 20B, 9, 1, 141 

1380 DATA 25, 20B , 104, 168, 104, 

170, 104, 64, 169, 1 
1390 DATA 44, 25, 208, 240, 243, 
173, 24, 208, 41, 8 
1400 DATA 20B, 40, 160, 28, 174, 
18, 207, 169, 49, 141 
1410 DATA IB, 20B, 173, 14, 207, 
208, 8, 173, 22, 20B 
1420 DATA 41, 239, 76, 174, 193, 
173, 22, 20B, 9, 16 
1430 DATA 141, 22, 208, 142, 33, 
208, 140, 24, 208, 76 



1440 DATA 11B, 193, 162, 6, 160, 

20, 169, 177, 141, 18 

1450 DATA 208, 76, 161, 193, 151, 

146, 129, 144, 129, 146 
1460 DATA 143, 149, 142, 132, 160 
, 160, 160, 160, 160, 186 
1470 DATA 133, 142, 129, 130, 140 
, 133, 132, 160, 132, 137 
1480 DATA 147, 129, 130, 140, 133 
, 132, 120, 169, 49, 141 
1490 DATA 20, 3, 169, 234, 141, 2 
1, 3, 173, 14, 220 

1500 DATA 9, 1, 141, 14, 220, 88 , 

96, 0, 0, 0 
1510 DATA 173, 14, 220, 41, 254, 
141, 14, 220, 165, 1 

1520 DATA 41, 251, 133, 1, 169, 0 
, 133, 251, 133, 253 

1530 DATA 169, 208, 133, 252, 169 

, 48, 133, 254, 162, 0 

1540 DATA 160, 0, 177, 251, 145, 

253. 200, 208, 249, 230 

1550 DATA 252, 230, 254, 232, 224 

, B, 20B, 238, 165, 1 

1560 DATA 9, 4, 133, 1, 173, 14, 

220, 9, 1, 141 

1570 DATA 14, 220, 234, 96, 169, 
0, 133, 254, 162, 8 

1580 DATA 10, 3B , 254, 6, 252, 14 
4, 7, 24, 101, 251 

1590 DATA 144, 2, 230, 254, 202, 

208, 239, 133, 253, 96 

1600 DATA 173, 12, 207, 133, 251, 

169, 8, 133, 252, 32 
1610 DATA 62, 194, 165, 254, 24, 
105, 48, 133, 254, 169 
1620 DATA 82, 133, 249, 133, 251, 

169, 4, 133, 250, 169 
1630 DATA 215, 133, 252, 160, 0, 
177, 253, 170, 152, 72 
1640 DATA 138, 162, 8, 160, 0, 10 
, 72, 144, 8, 169 

1650 DATA 81, 145, 249, 145, 251, 

208, 8, 169, 43, 145 
1660 DATA 249, 169, 0, 145, 251, 

104, 200, 202, 20B, 231 

1670 DATA 165, 249, 24, 105, 40, 

133, 249, 133, 251, 165 

16B0 DATA 250, 105, 0, 133, 250, 

105, 212, 133, 252, 104 

1690 DATA 168, 200, 192, 8, 208, 

195, 234, 96, 169, 64 

1700 DATA 133, 251, 173, 13, 207, 







Program Listing (cont.) 



IE 



133, 252, 32, 62, 134 
1710 DATA 162, 0, 160, 4, 169, 1, 

153, 224, 217, 153 
1720 DATA 8, 218, 138, 24, 101, 2 
53, 153, 224, 5, 24 

1730 DATA 105, 32, 153, 8, 6, 232 
, 200, 192, 36, 20B 

1740 DATA 229, 169, 188, 133, 248 

, 133, 250, 169, 6, 133 

1750 DATA 249, 169, 218, 133, 251 

, 169, 0, 133, 2, 162 

1760 DATA 0, 160, 0, 138, 24, 101 

, 253, 145, 24B, 173 

1770 DATA 19, 207, 72, 173, 14, 2 
07, 240, 5, 104, 9 

1780 DATA 8, 20B, 1, 104, 145, 25 

0, 232, 200, 192, 16 

1790 DATA 208, 227, 165, 248, 24, 

105, BO, 133, 24B, 133 
1800 DATA 250, 165, 249, 105, 0, 
133, 249, 105, 212, 133 
1810 DATA 251, 230, 2, 165, 2, 20 

1, 4, 20B, 198, 96 

1B20 DATA 169, 169, 133, 250, 133 

, 252, 169, 6, 133, 251 

1830 DATA 169, 21B, 133, 253, 169 

, 0, 133, 2, 170, 160 

1B40 DATA 0, 173, 12, 207, 145, 2 

50, 138, 145, 252, 232 

1850 DATA 200, 200, 192, B, 208, 

241, 165, 250, 24, 105 

1B60 DATA 80, 133, 2*50, 133, 252, 

165, 251, 105, 0, 133 
1B70 DATA 251, 105, 212, 133, 253 
, 230, 2. 165, 2, 201 
1BB0 DATA 4, 208 , 212, 96, 173, 4 
, 207, 133, 250, 173 
1890 DATA 5, 207, 133, 251, 172, 
7, 207, 177, 250, 41 
1900 DATA 63, 141, 12, 207, 169, 
64, 133, 251, 173, 13 
1910 DATA 207, 133, 252, 32, 62, 
194, 173, 12, 207, 24 
1920 DATA 101, 253, 141, 12, 207, 

96, 173, 8, 207, 133 
1930 DATA 250, 173, 9, 207, 133, 
251, 172, 10, 207, 96 
1940 DATA 32, 158, 195, 160, 0, 1 
69, 0, 133, 2, 177 

1950 DATA 250, 72, 74, 74, 74, 74 
, 74, 74, 24, 101 

1960 DATA 2, 133, 2, 104, 72, 10, 
10, 10, 10, 10 



1970 DATA 10, 24, 101, 2, 133, 2, 

104, 72, 41, 48 
1980 DATA 74, 74, 24, 101, 2, 133 
, 2, 104, 41, 12 

1990 DATA 10, 10, 24, 101, 2, 145 
, 250, 200, 192, 8 

2000 DATA 20B, 199, 96, 32, 15B, 
195, 160, 0, 169, 0 

2010 DATA 133, 2, 162, B, 177, 25 
0, 10, 72, 144, 9 

2020 DATA 165, 2, 74, 9, 12B, 133 
, 2, 208, 2, 70 

2030 DATA 2, 104, 202, 20B , 237, 
165, 2, 145, 250, 200 
2040 DATA 192, 8, 20B, 220, 96, 3 
2, 158, 195, 169, 7 

2050 DATA 133, 2, 160, 0, 152, 72 
, 177, 250, 170, 164 

2060 DATA 2, 177, 250, 72, 138, 1 

45, 250, 104, 170, 104 

2070 DATA 168, 138, 145, 250, 198 

, 2, 200, 192, 4, 20B 

2080 DATA 229, 96, 152, 72, 177, 

250, 164, 2, 145, 250 

2090 DATA 104, 168', 96, 32, 158, 

195, 169, 7, 133, 2 

2100 DATA 160, 6, 32, 58, 196, 16 
9, 0, 145, 250, 198 
2110 DATA 2, 136, 192, 255, 208, 
242, 96, 32, 158, 195 

2120 DATA 162, 0, 134, 2, 160, 1, 

32, 5B, 196, 230 
2130 DATA 2, 200, 192, 8, 20B, 24 
6, 136, 13B, 145, 250 
2140 DATA 96, 32, 15B, 195, 160, 
0, 177, 250, 10, 145 
2150 DATA 250, 200, 192, 8, 20B, 
246, 96, 32, 158, 195 
2160 DATA 169, 128, 133, 2, 160, 
8, 169,, 0, 153, 247 

2170 DATA 207, 136, 20B, 250, 152 
, 72, 177, 250, 160, 0 
2180 DATA 74, 144, 10, 72, 185, 2 
48, 207, 5, 2, 153 

2190 DATA 248, 207, 104, 200, 192 
, 8, 208, 238, 70, 2 

2200 DATA 104, 168, 200, 192, 8, 

20B, 223, 160, 0, 185 

2210 DATA 248, 207, 145, 250, 200 

, 192, 8, 208, 246, 96 

2220 DATA 238, 18, 207, 96, 238, 

34, 208, 96, 238, 35 

2230 DATA 208, 96, 23B, 39, 208, 




Character Generator 




Program Listing (cont.) 



96, 238, 19, 207, 96 

2240 DATA 173, 17, 207, 55, 233, 

1, 208, 1, 96, 141 

2250 DATA 17, 207, 96, 173, 17, 2 
07, 24, 105, 1, 144 

2260 DATA 244, 96, 173, 14, 207, 

73, 1, 141, 14, 207 

2270 DATA 32, 101, 199, 96, 172, 

3, 207, 136, 20B, 21 

22B0 DATA 173, 23, 207, 240, 15, 
169, 1, 141, 11, 207 
2290 DATA 169, 96, 141, 0, 208, 1 
69, B, 141, 3, 207 

2300 DATA 96, 140, 3, 207, 14, 11 
, 207, 173, 0, 208 

2310 DATA 56, 233, 8, 141, 0, 208 
, 96, 172, 3, 207 

2320 DATA 200, 192, 9, 208, 21, 1 

73, 23, 207, 240, 15 

2330 DATA 169, 128, 141, 11, 207, 

169, 40, 141, 0, 208 
2340 DATA 169, 1, 141, 3, 207, 96 
, 140, 3, 207, 78 

2350 DATA 11, 207, 173, 0, 208, 2 

4, 105, 8, 141, 0 

2360 DATA 208, 96, 174, 2, 207, 2 

02, 20B, 30, 173, 23 

2370 DATA 207, 240, 24, 169, 105, 

141, 0, 207, 169, 5 

2380 DATA 141, 1, 207, 162, 8, 14 

2, 2, 207, 202, 142 . 

2390 DATA 10, 207, 169, 122, 141, 

1, 208, 96, 142, 2 
2400 DATA 207, 206, 10, 207, 173, 

0, 207, 56, 233, 40 
2410 DATA 141, 0, 207, 173, 1, 20 

7, 233, 0, 141, 1 

2420 DATA 207, 173, 1, 208, 56, 2 
33. 8, 141, 1, 208 

2430 DATA 96, 174, 2, 207, 232, 2 
24, 9, 208, 30, 173 
2440 DATA 23, 207, 240, 24, 169, 
81, 141, 0, 207, 169 

2450 DATA 4, 141, 1, 207, 162, 1, 

142, 2, 207, 202 

2460 DATA 142, 10, 207, 169, 66, 
141, 1, 208, 96, 142 
2470 DATA 2, 207, 238, 10, 207, 1 
73, 0, 207, 24, 105 

24B0 DATA 40, 141, 0, 207, 173, 1 
, 207, 105, 0, 141 

2490 DATA 1, 207, 173, 1, 20B, 24 
, 105, B, 141, 1 



2500 DATA 20B , 96, 173, 141, 2, 4 
1, 1, 208, 4, 32 

2510 DATA 37, 197, 96, 32, 250, 1 
96, 96, 173, 141, 2 

2520 DATA 41, 1, 208, 4, 32, 151, 

197, 96, 32, 82 
2530 DATA 197, 95, 152, 53. 169, 

0, 157, 64, 3, 202 

2540 DATA 208, 250, 73, 255, 157, 

64, 3, 232, 232, 232 
2550 DATA 224, 24, 208, 246, 96, 
159. 128, 162, 74, 160 
2560 DATA 70, 141, 137, 196, 142, 

156, 196, 140, 174, 196 
2570 DATA 32, 133, 196, 96, 169, 

1, 162, 10, 160, 6 

2580 DATA 75, 25, 19B, 173, 0, 20 

7, 133, 250, 173, 1 

2590 DATA 207, 133, 251, 172, 3, 

20?, 96, 32, 15B, 195 

2600 DATA 160, 0, 177, 250, 73, 2 

55, 145, 250, 200, 192 

2610 DATA B, 208, 245, 96, 169, 0 

, 133, 250, 173, 13 

2520 DATA 207, 10, 24, 105, 4B, 1 
33, 251, 162, 0, 160 

2630 DATA 0, 177, 250, 73, 255, 1 

45, 250, 200, 208, 247 

2640 DATA 230, 251, 232, 224, 2, 

208, 238, 96, 173, 141 

2650 DATA 2, 41, 4, 20B, 4, 32, 6 

1, 198, 96, 32 

2660 DATA 78, 198, 96, 173, 21, 2 

08, 73, 1, 141, 21 

2670 DATA 208, 96, 173, 21, 208, 

73, 2, 141, 21, 20B 

2680 DATA 96, 169, 10, 141, 124, 

196, 32, 117, 196, 96 

2690 DATA 169, 74, 208, 245, 32, 

212, 196, 76, 186, 194 

2700 DATA 173, 4, 207, 133, 250, 

173, 5, 207, 133, 251 

2710 DATA 172, 7, 207, 96, 32, 15 

B, 195, 169, 0, 145 

2720 DATA 250, 96, 32, 15B, 195, 

169, 255, 145, 250, 96 

2730 DATA 173, 14, 207, 20B, 4, 3 

2, 235, 195, 96, 32 

2740 DATA 172, 195, 96, 169, 66, 
141, 1, 208, 169, 40 

2750 DATA 141, 0, 208, 169, Bl , 1 
41, 0, 207, 169,. 4 

2760 DATA 141, 1, 207, 162, 1, 14 



E 




Program Listing (cont.; 




2, 2, 207, 148, 3 

2770 DATA 207, 202, 142, 10, 207, 

169, 12B, 141, 11, 207 
27B0 DATA 173, 141, 2, 41, 1, 20B 
, 1, 96, 32, 15B 

2790 DATA 195, 169, 0, 145, 250, 
200, 192, B, 208, 243 
2B00 DATA 96, 162, 0, 189, 90, 12 
2 157 75 5 232 

2B10 DATA '224, 16, 20B , 245, 96, 

173, 13, 207, 24, 105 

2B20 DATA 176, 141, 92, 5, 162, 0 

, 173, 15, 207, 20B 

2B30 DATA 5, 1B9, 106, 192, 20B, 

3, 1B9, 112, 192, 157 

2840 DATA 22B, 4, 232, 224, 6, 20 

8, 235, 173, 23, 207 

2850 DATA 20B , 5, 189, 216, 193, 

20B, 3, 189, 20B, 193 

2B60 DATA 157, 46, 5, 232, 224, 1 

4, 20B, 235, 173, 14 

2B70 DATA 207, 208, 5, 1B9, 104, 
192, 20B, 3, 1B9, 107 
2BB0 DATA 192, 157, 254, 4, 232, 
224, 17, 20B, 235, 32 

2990 DATA 9, 199, 96, 32, 23, 199 
, 206, 19, 207, 32 

2900 DATA 15B, 19B, 96, 173, 23, 
207, 73, 1, 141, 23 

2910 DATA 207, 32, 23, 199, 96, 1 

73, 12, 207, 133, 251 

2920 DATA 169, 8, 133, 252, 32, 6 

2, 194, 165, 253, 141 

2930 DATA B, 207, 165, 254, 24, 1 

05, 4B, 141, 9, 207 

2940 DATA 95, 32, 1B6, 194, 32, 2 

3, 199, 32, 116, 195 

2950 DATA 32, 123, 199, 32, BB , 1 
94, 32, 52, 195, 96 
2960 DATA 173, 13, 207, 24, 105, 
1, 201, 4, 20B, 1 

2970 DATA 96, 141, 13, 207, 76, 5 
3, 202, 173, 13, 207 

29B0 DATA 56, 233, 1, 201, 255, 2 
08, 240, 96, 173, 21 

2990 DATA 208, 41, 1, 141, 21, 20 
8, 96, 173, 21, 208 

3000 DATA 9, 2, 141, 21, 20B , 96, 

172, 7, 207, 200 
3010 DATA 192, 33, 20B, 90, 174, 

6, 207, 232, 224, 3 
3020 DATA 208 , 46, 173, 23, 207, 
20B, 1, 96, 32, 196 



3030 DATA 199, 169, 227, 141, 4, 

207, 169, 5, 141, 5 

3040 DATA 207, 169, 146, 141, 3, 

20B, 169, 1, 141, 6 

3050 DATA 207, 141, 7, 207, 169, 

56, 141, 2, 20B, 169 

3060 DATA 0, 141, 16, 20B, 32, 20 
5, 199, 96, 142, 6 

3070 DATA 207, 32, 196, 199, 173, 

4, 207, 24, 105, 40 
3080 DATA 141, 4, 207, 173, 5, 20 
7, 105, 0, 141, 5 

3090 DATA 207, 173, 3, 20B, 24, 1 
05, 8, 141, 3, 208 

3100 DATA 169, 1, 208, 203, 140, 
7, 207, 173, 2, 20B 

3110 DATA 24, 105, 8, 72, 144, B, 

173, 16, 20B, 9 
3120 DATA 2, 141, 16, 20B, 104, 1 
41, 2, 20B, 96, 172 

3130 DATA 7, 207, 136, 20B, 8B, 1 

74, 6, 207, 202, 208 

3140 DATA 48, 173, 23, 207, 208, 

1, 96, 32, 196, 199 

3150 DATA 169, 11, 141, 4, 207, 1 
69, 6, 141, 5, 207 

3160 DATA 169, 154, 141, 3, 20B, 
169, 2, 141, 6, 207 

3170 DATA 169, 32, 141, 7, 207, 1 
69, 48, 141, 2, 20B 

3180 DATA 169, 2, 141, 16, 208, 3 

2, 205, 199, 96, 142 

3190 DATA 5, 207, 32, 196, 199, 1 
73, 4, 207, 56, 233 

3200 DATA 40, 141, 4, 207, 173, 5 
, 207, 233, 0, 141 

3210 DATA 5, 207, 173, 3, 20B , 56 
, 233, 8, 141, 3 

3220 DATA 208, 208, 203, 140, 7, 
207, 173, 2, 20B, 56 

3230 DATA 233, 8, 72, 176, 5, 169 
, 0, 141, 16, 20B 

3240 DATA 104, 141, 2, 208 , 96, 1 
69, 1, 141, 15, 207 

3250 DATA 32, 23, 199, 32, 159, 2 
55, 165, 197, 201, 2 
3260 DATA 20B, 28, 173, 141, 2, 4 
1, 1, 208, 6, 32 

3270 DATA 214, 199, 76, 230, 200, 

32, Bl', 200, 32, 2 
32B0 DATA 201, 32, 136, 199, 32, 
155, 199, 76, 205, 200 
3290 DATA 201, 14, 20B, 240, 169, 



Character Generator 




Program Listing (cont.) 



0, 141, 15, 807, 32 
3300 DATA E3, 199, 32, 14, 201, 9 

6, 172, 17, 207, 162 

3310 DATA 0, 202, 208, 253, 136, 

20B, 248, 96, 32, 158 

3320 DATA 195, 160, 0, 177, 250, 

153, 240, 207, 200, 192 

3330 DATA 8, 20B , 245, 96, 32, 15 

8, 195, 160, 0, 185 

3340 DATA 240, 207, 145, 250, 200 

, 192, B , 208, 246, 96 

3350 DATA 32, 214, 199, 76, 47, 2 

02, 32, 81, 200, 76 

3360 DATA 47, 202, 32, 15B, 195, 

173, 11, 207, 73, 255 

3370 DATA 49, 250, 145, 250, 96, 

32, 158, 195, 177, 250 

3380 DATA 13, 11, 207, 145, 250, 

32, 37, 197, 76, B8 

3390 DATA 194, 32, 250, 196, 32, 

58, 201, 76, B8, 194 

3400 DATA 32, 5B , 201, 32, 37, 19 

7, 76, B8, 194, 32 

3410 DATA 50, 197, 76, 151, 197, 
0, 51, 2, 7, 60 

3420 DATA 44, 0, 1, 21, 18, 50, 4 
5, 53, 48, 46 

3430 DATA 49, 54, 40, 43, 17, 33, 

10, 20, 6, 3 
3440 DATA 4, 5, 32,-57, 36, 56, 5 

9, B, 9, 62 

3450 DATA 42, 13, 22 , " 0 , 0, 0, 20 

7, 222, 237, 96 

3460 DATA 71, 87, 105, 186, 178, 

216, 229, 20B, 30, 104 

3470 DATA 52, 46, 16B, 185, 194, 

21, 19, 3B, 145, 154 

34B0 DATA 93, 69, 112, 196, 238, 

200, 204, 158, 111, 170 

3490 DATA 58, 25, 91, 0, 0, 0', 19 

8, 197, 197, 201 

3500 DATA 201, 201, 201, 198, 19B 

, 196, 196, 196, 201, 205 

3510 DATA 201, 201, 199, 199, 198 

, 196., 19B, 198, 198, 198 

3520 DATA 196, 196, 198, 196, 196 

, 196, 196, 198, 199, 202 

3530 DATA 206. 206, 205, 0, 0, 0, 

32, 159, 255, 162 
3540 DATA 0, 165, 197, 221, 112, 

201, 20B, 15, 189, 152 

3550 DATA 201, 141, 46, 3, 189, 1 
92, 201, 141, 47, 3 



3560 DATA 10B, 46, 3, 232, 224, 3 

7, 208, 231, 96, Bl 

3570 DATA 4, 1, 1, 227, 5, 1, 1, 

0, 48, 0 

3580 DATA 128, 0, 0, 0, 0, 1, 40. 
10, 0, 0 

3590 DATA 1, 0, 1, 162, 0, 189, 9 
, 202, 157, 0 

3600 DATA 207, 232, 224, 24, 20B, 

245, 96, 32, 155, 199 
3610 DATA 76, 14, 201, 32, 149, 1 
99, 76, 14, 201, 169 
3620 DATA 0, 32, 210, 255, 162, 0 
, 32, 207, 255, 201 

3630 DATA 13, 240, 10, 157, 32, 2 

07, 232, 224, 16, 208 

3640 DATA 241, 169, 13, 142, 22, 

207, 32, 210, 255, 96 

3650 DATA 169, 0, 141, 26, 208, 1 

41, 21, 208, 169, 6 

3660 DATA 141, 33, 208, 73, 8, 14 

1, 32, 208, 169, 147 

3670 DATA 32, 210, 255, 96, 169, 

28, 141, 24, 208, 162 

3680 DATA 0, 138, 157, 0, 4, 159, 

1, 157, 0, 216 
3690 DATA 232, 208, 244, 162, 0, 
1B9, 149, 202, 32, 210 
3700 DATA 255, 232, 224, 21, 208, 

245, 108, 2, 3, 17 
3710 DATA 17, 17, 17, 17, 17, 17, 

13, 81, 85, 73 
3720 DATA B4 , 46, 13, B2 , 69, 65, 

6B, 89, 46, 13 
3730 DATA 32, 90, 202, 76, 125, 2 
05, 12, 15, 1, 4 

3740 DATA 46, 19, 1, 22, 5, 46, 1 
73, 14, 220, 41 

3750 DATA 254, 141, 14, 220, 165, 

1, 41, 251, 133, 1 
3760 DATA 169, 48, 133, 247, 169, 

207, 133, 248, 162, 0 
3770 DATA 13B, 72, 189, 176, 202, 

133, 251, 169, B, 133 
3780 DATA 252, 234, 32, 62, 194, 
165, 254, 24, 105, 208 
3790 DATA 133, 254, 160, 0, 177, 
253, 145, 247, 200, 192 
3800 DATA 8, 208, 247, 165, 247, 
24, 105, 8, 133, 247 
3810 DATA 165, 24B, 105, 0, 133, 
248, 104, 170, 232, 224 
3820 DATA 10, 208, 203, 165, 1, 9 





Program Listing I 


[cont.) 





4 133 1 173 
3830 DATA 14, 220, 9, 1, 141, 14, 

220, 96, 173, 13 
3840 DATA 207, 133, 255, 32, 153, 

255, 155, 197, 201, 1 
3850 DATA 240, 31, 201, 40, 208, 

6, 32, 168, 199, 76 

3860 DATA 53, 203, 201, 43, 208, 
3, 32, 185, 199, 173 

3B70 DATA 92, 5, 73, 128, 141, 92 
, 5, 32, 2, 201 

3880 DATA 76, 27, 203, 173, 13, 2 

07, 10, 24, 105, 48 

3890 DATA 133, 253, 169, 0, 133, 
250, 133, 252, 165, 255 
3900 DATA 10, 24, 105, 48, 133, 2 
51, 162, 0, 160, 0 

3910 DATA 177, 250, 145, 252, 200 

, 508, 249, 230, 251, 230 

3920 DATA 253, 232, 224, 2, 20B , 

238, 165, 255, 141, 13 

3930 DATA 207, 173, 92, 5, 9, 12B 

, 141, 92, 5, 76 

3940 DATA 53, 202, 169, 80, 133, 
247, 133, 249, 133, 251 
3950 DATA 169, 4, 133, 24B, 133, 
250, 162, 0, 13B, 72 

3960 DATA 160, 0, 152, 72, 177, 2 

53, 160, 0, 10, 144 

3970 DATA 17, 72, 169, 160, 145, 

249, 165, 250, 24, 105 

39B0 DATA 212, 133, 2*52, 169, 1, 

145, 251, 104, 200, 192 

3990 DATA 8, 208, 231, 165, 249, 

24, 105, 40, 133, 249 

4000 DATA 133, 251, 165, 250, 105 

, 0, 133, 250, 104, 168 

4010 DATA 200, 192, 8, 208, 203, 

165, 247, 24, 105, 8 

4020 DATA 133, 247, 133, 249, 133 

, 251, 165, 248, 105, 0 

4030 DATA 133, 24B, 133, 250, 165 

, 253, 24, 105, B, 133 

4040 DATA 253, 165, 254, 105, 0, 

133, 254, 104, 170, 232 

4050 DATA 224, 5, 20B , 160, 96, 1 

69, 207, 133, 254, 173 

4060 DATA 20, 207, 20B , 4, 169, 4 

8, 208, 2, 169, 88 

4070 DATA 133, 253, 76, 126, 203, 

169, 0, 133, 250, 133 
4080 DATA 252, 165, 170, 240, 6, 
162, 4B, 169, 56, 208 



4090 DATA B, 173, 13, 207, 32, 37 
, 205, 234, 234, 133 
,..4100 DATA 253, 134, 251, 96, 32, 
'32, 39, 17, 39, 32 

&110 DATA 61, 32, 17, 21, 9, 20, 
32, 59, 32, 39 

4120 DATA 49, 39, 32, 61, 32, 20, 

1, 16, 5, 32 
4130 DATA 59, 32, 39, 56, 39, 32, 

61, 32, 4, 9 
4140 DATA 19, 11, 32, 32, 162, 40 
, 189, 31, 204, 157 

4150 DATA 183, 5, 169, 7, 157, IB 
3, 217, 202, 20B, 242 
4160 DATA 96, 32, 2, 201, 162, 40 
, 189, 1B3, 5, 73 

4170 DATA 12B, 157, 183, 5, 202, 
208, 245, 96, 0, 29 

4180 DATA 29, 29, 69, 78 , B4 , 69, 

B2, 32, 70, 73 
4190 DATA 76, 69, 7B , 65, 77, 69, 

32, 65, 7B, 68 
4200 DATA 32, BO, B2 , 69, 83, 83, 

32, 39, 82, 69 
4210 DATA 84, B5 , B2 , 78, 39, 13, 

13, 29 29 29 
4220 DATA 6, 70, 73, 76, 69, 78, 
65, 77, 69, 32 

4230 DATA 5B , 32, 162, 13, 13B, 3 

2, 210, 255, 202, 20B 

4240 DATA 250, 1B9, 106, 204, 32, 

210, 255, 232, 224, 54 
4250 DATA 208, 245, 76, 59, 202, 
32, 115, 205, 169, 0 
4260 DATA 141, 32, 208 , 141, 33, 
208, 32, 239, 203, 32 
4270 DATA 160, 204, 32, 72, 204, 
234, 234, 234, 234, 234 
4280 DATA 234, 234, 32, 159, 255, 

165, 197, 201, 62, 208 
4290 DATA 3, 76, 252, 205, 201, 5 
6, 208, 5, 169, 1 

4300 DATA 76, 243, 204, 201, 27, 
240, 6, 32, 89, 204 

4310 DATA 76, 210, 204, 169, 8, 1 

41, 21, 207, 169, 1 

4320 DATA 168, 174, 21, 207, 32, 

186, 255, 173, 22, 207 

4330 DATA 152, 32, 160, 207, 32, 

189, 255, 173, 20, 207 

4340 DATA 208, 6, 32, 213, 255, 7 

6, 32, 205, 32, 3 

4350 DATA 204, 169, 250, 166, 252 




Character Generator 




Program Listing (cont.) 



, 1B4, 253, 32, 516, 255 

4350 DATA 104, 104, 76, 552, 205, 

10, 24, 105, 48, 170 
4370 DATA 105, 2, 96, 169, 0, 141 

, 50, 507, 76, 1B3 

4380 DATA 204, 169, 1, 208, 246, 
173, 8, 207, 72, 173 

4390 DATA 9, 207, 72, 32, 197, 20 
0, 32, 158, 195, 104 

4400 DATA 133, 253, 104, 133, 252 

, 160, 0, 177, 252, 145 

4410 DATA 250, 200, 192, 8, 508, 

247, 76, 14, 201, 173 

4450 DATA 141, 2, 41, 4, 508, 3, 

76, 39, 206, 76 

4430 DATA 22, 203, 173, 21, 50B, 
9, 2, 76, 17, 206 

4440 DATA 76, 197, 200, 32, 90, 2 

02, 169, 0, 133, 19B 

4450 DATA 76, 230, 193, 32, 230, 

193, 169, 0, 133, 198 

4460 DATA 104, 104, 76, 114, 202, 

169, 0, 141, 16, 20B 
4470 DATA 141, 21, 508, 141, 23, 
208, 141, 29, 208, 32 
4480 DATA 555, 197, 169, 13, 141, 

248, 7, 141, 549, 7 
4490 DATA 169, 1, 141, 39, 508, 1 
41, 40, 508, 169, 40 
4500 DATA 141, 0, 208, 169, 66, 1 
41, 1, 508, 169, 56 - 
4510 DATA 141, 5, 508, 159, 146, 
141, 3, 208, 234, 96 

4520 DATA 534, 534, 234, 234, 234 

, 534, 234, 534, 32, 186 

4530 DATA 205, 32, 137, 205, 32, 

33, 202, 162, 8, 189 

4540 DATA 255, 47, 157, 239, 20" 7 , 

505, 20B, 547, 32, 124 
4550 DATA 195, 35, 75, 193, 35, 1 
49, 199, 173, 21, 508 
4560 DATA 41, 1, 141, 51, 208, 32 
, 232, 201, 35, BB 

4570 DATA 194, 35, 5, 501, 35, 12 

7, 198, 76, 559, 505 

4580 DATA 169, 2, 133, 5, 160, 0, 

165, 0, 202, 20B 
4590 DATA 553, 136, 508, 548, 19B 
, 5, 508, 245, 76, 192 
4600 DATA 205, 41, 2, 141, 21, 20 
B, 76, 197, 200, 169 
4610 DATA 0, 133, 170, 173, 141, 
2, 41, 4, 133, 170 



4650 DATA 76, 50, 506, 173, 51, 5 
OB, 41, 5, 141, 51 

4630 DATA 208, 76, 57, 205, 169, 

20, 141, 54, 508, 76 

4640 DATA 53, 205, 169, 20, 141, 

24, 208, 76, 45, 205 

4650 DATA 3, 32, 8, 35, 1, 35, IB 

, 32, 1, 35 

4660 DATA 3, 35, 50, 35, 5, 35, 1 
B, 35, 35, 7 

4670 DATA 32, 5, 32, 14, 32, 5, 3 
2, IB, 32, 1 

4680 DATA 35, 50, 32, 15, 35, IB, 

35, 39, 54, 52 
4690 DATA 16, 32, IB, 32, 5, 32, 

19, 32, 19, 32 

4700 DATA 32, 1, 32, 14, 32, 25, 
35, 35, 11, 35 

4710 DATA 5, 35, 55, 35, 35, 35, 

20, 32, 15, 32 

4720 DATA 35, 19, 35, 50, 32, 1, 
32, 18, 32, 50 

4730 DATA 169, 48, 141, 17, 507, 

234, 234, 234, 169, 147 

4740 DATA 35, 510, 555, 169, 142, 

32, 510, 255, 169, 8 
4750 DATA 32, 210, 255, 169, 0,' 1 
41, 32, 20B, 141, 33 
4760 DATA 208, 169, 64, 133, 197, 

162, 40, 189, 105, 206 
4770 DATA 157, 183, 5, 169, 1, 15 
7, 1B3, 217, 189, 65 
47B0 DATA 206, 157, 555, 3, 169, 
7, 157, 555, 515, 505 
4790 DATA 20B, 231, 165, 197, 201 
, 64, 240, 3, 76, 236 
4800 DATA 206, 32, 89, 204, 162, 
40, 1B9, 255, 3, 73 
4810 DATA 128, 157, 255, 3, 202, 
508, 245, 76, 208, 206 
4820 DATA 173, 111, 501, 75, 50B , 

3, 35, 554, 193, 104 
4B30 DATA 9, 1, 141, 111, 501, 53 
4, 534, 76, 195, 205 
4B40 DATA 169, 1, 166, 2, 160, 1, 

32, 186, 255, 169 
4B50 DATA 7, 165, 35, 160, 207, 3 
2, 189, 255, 169, 0 

4860 DATA 133, 250, 169, 192, 133 

, 251, 169, 250, 162, 0 

4B70 DATA 160, 207, 76, 216, 255, 

71, 69, 7B, 39, 54 
4B80 DATA 52, 46, -1 
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Mike Hart provides a couple 
of handy plotting routines for 
the Vic 20 and O 



AT ONE TIME OR ANOTHER. MANY 
people must have experimented with 
their machines to see if there is an easy 
way to draw graphs or plots on the screen. 
There are three ways in which this can be 
done and I will call them low resolutibn. 
medium resolution and high resolution 
respectively. 

In low-resolution plotting, one merely 
takes the screen as a grid and plot points 
using asterisks or a similar graphic 
characters. In the case of a C64 this would 
obviously be a grid of 40 * 25 giving 1000 
potential plot points. 

If one wished to use a high resolution 
screen then on the C64 one would use bit- 
mapped graphics which allows each 
individual 'dot' on the screen to be 
controlled. Using this mode will increase 
the resolution quite dramatically to 320 * 
200 which is 64000 addressable dots. 
However using the C64 in this mode is 
quite complicated and needs to be 
approached with a degree of caution. The 
approach which I am going to adopt here 
is one that gives pleasant 'chunky' 
graphics points and is half-way between 
these two extremes and which, therefore. 
I shall call medium-resolution graphics. 

If you were to PRINT CHR$(161), 
CHR$<1B8>. CHR$(172) and CHR$(191) asa 
brief experiment you would see that a 
graphics character is generated which 
consists of a quarter square either by itself 
or in combination with another 'quarter- 
square' to make up a half square. There* 
are 14 of these combinations altogether 
and together with space and reverse 
space we have a total of sixteen 
permutations of 'quarter-square' 
graphics. This enables us to make a 
resolution which is twice that of the 
normal screen and therefore instead of 
having 40 * 25 we can increase this to 
80 * 50 giving us a resolution of 4000 plot 
points. 

Let us suppose that we wish to plot a 
point at the bottom left hand corner of 
the screen. The complicating factor that 
we have to take into account is that there 
might already be a graphics character 
already occupying that position and we 
would wish to preserve the point that it 
represents. The trick here is to PEEK the 
screen at that particular point, read the 
value of the character at that point, look 
up its value in a table of potential values 
and then work out from the same table 
the value of the new character to be 
poked back onto the screen which both 
plots the 'new' point and the value of the 
existing point. If this is a little hard to 
visualise then any of Raeto West's books 
have an excellent explanation under the 



RELIABLE 

ROUTINES 




Program Listing 



me: d ium-r 



f> i_ o t 



1 REM 

a : 

3 REM 

4 : 



**» MEDIUM-RES PLOT (BASIC) «** 



M. C. HART 



** 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
1 1 1 
120 
12 1 
130 
131 
140 
300 
310 
320 
321 
330 
340 
350 
35 1 
360 
370 



DIM C< 15) ,A< 1 , 1 ) 
FORJ=0 TO 15 i READ C<J):NEXT 
DATA 32 , 123, 108,98 , 126 ,97 , 127 , 252 
DATA 124,255,225,254,226,236,251 , 160 

■ 

AC0,0) = 1 : A(0, 1 )=2:A< 1 ,0)=4: A< 1 , 1 )=8 
: 



FOR J=948 TO 969 : READ X ' POKE J,X:NEXT 
DATA 32,241,183,138,162,0,157,0 
REM DATA 32,241,215,138,162,0,157,0 
DATA 216,157,0,217,157,0,218,157 
REM DATA 148,157,0,149,157,0,150,157 
DATA 0,219,202,208,241,96 
REM DATA 0,151,202,208,241,96 

■ 

PRINT CHR*C 147);CHR*< 144) : REM BLACK 
COL=0:REM BLACK 

POKE53280, 12*P0KE53281 , 12: REM GREY2 
REM VIC POKE 36879,25 



TO 39 



SYS 948, COL: REM SET COLOUR MEMORY 
FOR J=l TO 2 ' FOR X-0 TO 79 
REM VIC FOR J*l TO 2 1 FOR X=0 
Y=22 +2 1 *S IN< X/8 ) : 60SUB 1 000 
NEXT X:T=N0T<T)SNEXT J 

380 GOTO 2000 

381 END : REM VIC ONLY 
995 s 

1000 REM PLOT SUBROUTINE 
1010 : 
1020 
1030 
1040 
1050 
1051 
1052 
1060 
1070 
1080 

1090 

2000 



XL=INT<X/2 ) :XS-X-2*XL 
YL=INT<Y/2) :YS«INT<Y)-2*YL 
N«A<YS,XS) 
P=1984-40*YL+XL 
REM VIC 8K+ P-4580-22»YL+XL 
REM VIC<8K P«8164-22*YL*XL 
FOR I =0TO 15s IF PEEK (P )< >C < I )THEN NEXT 
|"I OR Ni IF T*-l THEN I«l AND NOTCN) 
POKE P,C<I>:RETURN 




Programming 




Program Listing 



2001 

2002 
2003 
2004 
2010 
2020 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
204 1 
2042 
2043 
2044 
2045 
2046 
204? 



REM 
REM 
REM 
REM 
FOR 



*** MEDIUM-RES PLOT <MC> *** 



** BY M. C. HART «* 



J-828 TO 990:READ X:T-T+X 
POKEJ ,X : NEXT: IF T«22553 THEN 3000 
PRINT "DATA ERROR ! ■ : END 
DATA 169,0,133,254,169,1,133,253 
DATA 165,251 ,201 ,80 , 176 ,56 , 165 ,252 
DATA 201 ,50, 176 ,50 , 169 ,50 ,229 ,252 
DATA 70,251 ,38 ,254 , 106 , 38 ,254 , 1 33 
DATA 252,10,10,101,252,10,10,38 
DATA 253, 10,38,253,234,234,234, 133 
DATA 252, 166,254 , 189, 159 ,3, 133,254 
DATA 164 ,251 , 177 ,252, 1 62 , 1 5 , 22 1 , 163 
DATA 3,240,4,202,16,248,96,173 
DATA 158,3,240,6, 138,5,254, 170 
DATA 208,8,138,73,255,5,254,73 
DATA 255, 170, 183, 163,3, 164 ,251 , 145 
DATA 252,96,1,1,2,4,8,32 
DATA 126, 123,97, 124,226,255,236, 108 
DATA 127,98,252,225,251 ,254,160,0 
DATA 32,24 1,183,138,162,0,157,0 
DATA 216,157,0,217,157,0,218,157 

2048 DATA 0,219,202,208,241,96,32,235 

2049 DATA 183,134,252,165,20,133,251,32 
DATA 241,183,142,158,3,32,180,3 
DATA 76,60,3 



PLOT -970 

PRINT: INPUT "BACKGROUND " ? B 
PRINT: INPUT-PEN COLOUR ' i COL 
PRINT: INPUT-TWO NUMBERS E.G 
POKE 53280, B:POKE 53281 ,B 
PRINT CHR*< 147) 



2,3";X,Y 



2050 
2051 
2060 
3000 
3010 
3020 
3030 
3040 
3050 
3060 t 

4000 FORJ-1 TO 880 

40 10 SYS (PLOT) < 1 +SIN<X»J) >*40 , C 1 +COSCY*J> > «25 , 1 ,COL 
4020 NEXT 
4830 : 

63000 REM SCREEN-DUMP 

630 10 : 
63020 
63030 
63040 
63050 
63060 
63070 
63080 
63090 
63100 

631 10 
63 120 
63 130 
63 140 
63150 
63 160 



0PEN6 ,4 ,6 : PR INTM6 ,CHR*<22 ) I 0PEN4 ,4 

FOR 1=0 TO 24: FOR J=0 TO 39 

A=PEEK< I 024 +1*40+ J) 

G0SUB63 1 00 

PR INTH4 ,a*; B*;c*; 

NEXT J : PR I NTH4 : NEXT I 

PR I NT* 4 : CL0SE4 : END 

■ 

A*= ■ " :B*«" ■ :C*= " " 
IFA<=128 THEN 63130 

A*=CHR*< 18) :C*=CHR*C 1 46 > : B*=CHR*< A -64 ) : RETURN 

IF A<32 THEN A*=CHR*CA+64 ): RETURN 

IF A>31 AND A<64 THEN B**CHR* ( A ): RETURN 

I FA >63 AND A<96 THEN B**ChR*< A* 128 ) : RETURN 

B*=CHR*(A+64 ) : RETURN 



heading 'double density graphics' 
complete with diagrams and very full 
explanations of the manipulations 
involved. 

Lines 1-1090 represent an 
implementation of medium-resolution 
graphics using BASIC only. This is fairly 
slow but is speeded up somewhat by 
making use of a machine code routine to 
poke the colour RAM so that we are not 
concerned with two POKEs for every 
point plotted. The program is given by 
default for the C64 but the changes 
needed for the VIC's are REMmed 
immediately after each of the affected 
lines. 

Lines 10-60 are concerned with 
constructing a small 'look up" table. 

Lines 100-140 read in the machine 
code for subsequent changes of colour 
RAM. 

The major routine is in lines 300-380 
which computes a sine curve and then 
plots it (on the first of the I loops) and then 
'unplots' it (on the second of the J loops). 

The procedure for VIC owners is to 
delete the following lines: 110.120,130, 
320,350,380,1050. Now take the lines that 
immediately follow these i.e. 111,121,131, 
321,351,381,1051-1052 and remove the 
REM portion of the statement that made 
these lines inoperative in the C64 version. 
You will also have to decide which version 
of VIC expansion you are operating with, 
as the screen shifts from S1E00 to $1000 
just to make life confusing. Select either 
line 1051 or 1052. 

Line 380 having been deleted makes 
the VIC version end in line 381. 

Owners of the C64 now have a 
machine code version of the above which 
plots a Lissajous figure in the shape of a 
butterfly. An illustration of this is also 
given. 

Lines 2000-2051 read the machine 
code into the cassette buffer. Then you 
are given a choice of background and pen 
colours (12 for background and 0 for pen 
colour i.e., black on light grey is my 
personal favourite). 

PLOT is defined as 970 and this is the 
entry poinl. 

Notice the complicated formula in line 
4010 which actually follows the rubric 
SYS(PLOT) x,y,on/off, colour. The first 
computed value is obviously the x value 
whilst the second computed value is they 
value. For a 'plot' we would then have a 1 
and for an 'unplot' or 'erase' we would 
have a 0. Finally, we have the colour 
intended for the plot. You can obviously 
experiment with it as much as you like. 

The origin is in the bottom left-hand 
corner (SYS(PLOT)O.O.I.O whilst the 
opposite corner is SYS (PLOT)79,49,1,0). 

Finally, lines 63000-63160 constitute a 
screen dump, written in BASIC but more 
than adequate. 



E 








roora m m inQ 


^^^^ 








CHIP 



THE GRAPHICS DISPLAY, SOUND GEN- 
eration and internal clock/timers of the 
C-16 and Plus/4 computers are controlled 
by a single integrated circuit, the so-called 
TED chip. This is a complex device, and, 
unfortunately, rather difficult to use. 

An equally unfortunate circumstance 
is that no information on the use of this 
chip is provided in Commodore's manual. 
This is presumably in the belief that the 
graphics and sound commands supplied 
in the extended Basic are adequate. 
However, most advanced programmers. 



especially those writing machine code 
programs, will want direct access to the 
registers of this device. 

The TED chip is a rather strange device. 
It is located in the middle of the kernal 
ROM area and overlays this ROM so that 
the ROM area covered by TED is 
inaccessible. In addition, the TED registers 
are not grouped in one continuous area 
of memory. We located TED registers in 
the area $FD0O to SFF3F. The reason for 
this is obscure and probably related to a 
quirk in the chip's design. 



In operation the TED chip is not unlike 
the VIC and SID chips in the C64 and it is 
worth studying one of the advanced 
books on the 64 (for instance Advanced 
Commodore 64 Graphics and Sound and 
The Commodore 64 Kernal and Hardware 
Revealed - both by Nick Hampshire). 

The following table shows the 
locations in TED which we have 
uncovered together with the function of 
each register and the bits within each 
location. 
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c 

J 


I — voice z rone enauie 


rruu 


— nmer i low 


A 
*t 


i — voice i cndoic 


cent 
rrU I 


t:_,. i L.; n u 

— i imer i nign 


1 ft 


volume [v-o oniyj 


FF02 


— Timer 2 low 


FF12 




FF03 


— Timer 2 high 


Bit 3 


Bit map base 


FF04 


— Timer 3 low 


2 


1 = chars from ROM,0=chars from RAM 


FF05 


— Timer 3 high 


1-0 


Voice 1 high 


FF06 


— Video control 1 


FF13 


— Character base address 


Bit 7 


Not used 


Bit 7-3 


Address of UDSc (2K steps) 


6 


I = extended background 


2 


1 =lower case 


5 


1 = Bit map 


FF14 


— Screen base address 


4 


0 = blank screen 


Bit 7-3 


Address of colour memory 


3 


1 = 25 lines, 0=24 line's 




(2K steps, screen 1K above colour) 


2-0 


Vertical smooth scroll pos 


FF15 


— Background colour 


FF07 


— Video control 2 


Bit 7 


Not used 


Bit 7-5 


Not used 


6-4 


Luminance (0-7) 


4 


1 = Multi-colour 


3-0 


Colour (0-15) 


3 


1 = 40 columns, 0 = 38 columns 


FF16 


— Extended back 1/M col 1 


2-0 


Horizontal smooth scroll pos 


Bit 7 


Not used 


FF08 


— Out : keyboard column or joystick (FD or FA) 


6-4 


Luminance (0-7) 




ln:keyboard row or joystick switches 


3-0 


Colour (0-15) 


FF09 


— Interrupt control 


FF17 


— Extended back 2/M col 2 


Bit 5 


T3 has run out 


Bit 7 


Not used 


4 


T2 has run out 


6-4 


Luminance (0-7) 


3 


Tl has run out 


3-0 


Colour (0-15) 


1 


Raster compare occurred 


FF18 


— Extended back 3 


FFOA 


— Interrupt enable 


Bit 7 


Not used 


Bit 5 


1 = T3 enable 


6-4 


Luminance (0-7) 


4 


1 = T2 enable 


3-0 


Colour (0-15) 


3 


1 = Tl enable 


FF19 


— Border colour 


1 


1 = Raster enable 


Bit 7 


Not used 


FFOB 


— Raster compare low byte 


6-4 


Luminance (0-7) 


FFOC 


— Screen offset from base for cursor (high byte 


3-0 


Colour (0-15) 


FFOD 


— Screen offset from base for cursor (low byte) 


FF1C 


— Bit 0: Raster position high bit 


FFOE 


— Voice 1 low byte 


FF1D 


— Raster position low byte 


FFOF 


— Voice 2 low byte 


FF3E 


— ROM in when written to 


FF10 


— Bits 1-0:Voice 2 high 


FF3F 


— ROM out when written to 


FF11 


— Sound control 






Bit 7 


Disable sound 
i — i^oise on voice ^ 


FD10 


— Bit 2:cassette switch sense (0=down) 

— no K\_Yi r r^KrV (io*vii 




A fistful of DATAs — more of 
your useful programming 
quickies presented by Max 
Phillips. 



WELCOME TO THE PAGE FOR YOUR 
programming bits and pieces. We're 
interested in anything, useful or amusing, 
from a few POKEs to a short utility and 
we'll pay for anything we use. Just send us 
your program (either as a listing or on 
cassette or disk) and some notes as to what 
it does and how it does it. Post your contri- 
butions to Scratchpad. Your Commodore, 
No 1 Golden Square. London W1R 3AB. 

That '!'?! Bleepin Keyboard 

Andreas Weinand kicks off this month 
with a machine code utility that produces 
a beepeverytimeakeyispressed.lt might 
be a help for anyone who has a dicky key- 
board or can't manage two finger typing 
but watch out - it does mean everyone 
else can hear what your typing speed is 
like! 

Andreas' program takes over the C64's 
regular interrupt and uses voice 1 on the 



SID chip to provide an expensive 
sounding beeper. 

Clean Living 

Wash is a handy disk utility supplied by 
Clifford Hanger of Manningtree in Essex. 
It lets you step through all the files on a 
disk one by one using the space bar. You 
can delete the current file by pressing S or 
rename it with R. Even better, pressing V 
lets you take a peek at what's in the file so 
you can figure out what it is and then 
scratch it if you don't need it. 

The VIEW command works with all 
files though it cuts out any control 
characters and replaces them with full 
stops. Even so, you should be able to get a 
good idea of what the file is. One problem 
- after viewing a file, Wash sometimes 
goes back to the title of the disk - just hit 
space a few times to go round again. It just 
goes to show - you can write a useful 
utility in Basic! 

Oh No, Not Again... 

Printing at a particular position on the 
screen is still the most talked about 
subject' in C64 programming. Graham 
Blighe of Eastleigh in Hampshire has 
pointed out that David Read's routine in 
Your 64 issue 13 won't let you print on the 
top line of the screen because you've got 



to POKE 214.Y-1 and then PRINT. Oh yes - 
I wondered when someone would spot 
that! 

Graham has a neat solution - call the 
routine in the kernal ROM which re- 
calculates the cursor position. The PRINT- 
AT routine then becomes: 

POKE 211,X:POKE 214,Y:SYS 58732 

Meanwhile, Asmat Ullah from Glasgow 
has a fiendishly clever machine code 
solution. It's only 12 bytes of code so it 
should be no trouble to include it in your 
initialisation section. Once loaded, you 
can print anywhere on the screen with: 

SYS(828}X,Y;"MESSAGE" 

Neat huh? Asmat does point out that 
there's no error checking in the routine in 
order to keep it short so you should make 
sure that X is less than or equal to 40 and Y 
is less than or equal to 25. Even so, it has to 
be the best yet. Unless, of course, you 
know different. . . 

1 REM PRINT-AT ASMAT ULLAH 

2 FOR X-828 TO 839:READ Y:POKE 
X Y:NEXT 

3 DATA 32,234,183,164,20.24.32,240.255.7 

Clean Cut Characters 

Paul Barnham of Darwen in Lancashire 
has sent in a delightful utilitythat replaces 
all those hard to read control codes in 
listings with clear mnemonics such as 
|CLR9], [RED], [UP] and so on. Just enter 
POKE 56,15:CLR and run the listing 
below. You'll find LIST a changed 
command. . . 



ANDREAS WEINAND LISTING 



100 REM KEY BEEP BY ANDREAS UEINAND 
110 REH START UITH SYS 832 
120 FOR I-B32 TO 940 

130 READ X: POKE I,X: S-S*X: NEXT 

140 DATA169 , 15,141, 24,212,169, 64,141, 

5,212,169, 6B 
150 DATA141, 6,212,169, 63,162,157,141, 

1,212,142, 0 
160 DATA212,169,100,162, 3,141, 20, 3, 
142, 21, 3, 96 

170 DATA165,203,201, 64,209, 3, 76, 49, 
234,162, 17,142 

180 DATA 4,212,141, 87, 27,169,135,162, 

3,141, 20, 3 
190 DATA142, 21, 3,169, 12,141, 86, 27, 

76, 49,234,165 
200 DATA203,205, 87, 27,20B, 12,174, 86, 

27,202,240, 6 
210 DATA142, B6, 27, 76, 49,234,169, 0, 
141, 4,212,169 

220 DATA100.162, 3,141, 20, 3,142, 21, 

3, 76, 49,234 
230 DATA 0 

240 IF S<>11366 THEN PRINT "ERROR IN DAT 
A": END 

250 PRINT "OK" 



CLIFFORD HANGER LISTING 



10 REH DIRECTORY WASH : C HANBER 1985 
20 PRINT "IT'jTABClB) ; " rWASH"" : PR I NT 
30 PRINT "... FOR CLEANER DIRECTORIES! " 
40 REH READ DIR 
50 0PEN2.B.15 
60 OPEN 1 , B,0, "SO" 
70 GETttl , AS , BS 
BO GET#1,AS,BS,A$,BS 
90 C-0:IF A$<>"" THEN C-ASCCAS) 
100 IF B$<>"" THEN C-C+A5CCBS)«256 
110 CS-STRSCC) : CS-LEFTSC " ",4-LENCCS) 
)+CS 

120 GET#1,BS:IF ST<>0 THEN PRINT: PRINT C 
$;" BLOCKS FREE": CLOSE 1 : G0T060 
130 IF BS< > CHRSC 34 D THEN 120 
140 FS-"" 

150 GET#1,AS:IF AS<> CHRSC 34 ) THEN FS-FS 
+A$:G0T0 ISO 

160 GET#1,A$:IF AS-" " THEN 160 
170 TS-AS 

180 GETttl , AS : IF AS<>"" THEN TS-TS+A$:G0 
TO 180 

190 IF C-0 THEN PRINT : PRINT "aTITLE- ";F 
S:PRINT:G0T0B0 

200 PRINT FS;TABClB);"rJBLKS" ,, ; CS;TABC27D 
; "STYP" ";LEFT$CTS,3D 

210 PRI NT : PRINT "rG-CRATCH MRSENAffE z*jmi 



EU1 rdftJIT OR rSPACE" "; 

220 REM BET COMriAND 
230 GET KS: IF KS-"" THEN 230 
240 PRINT K$ : PRINT 
250 IF KS-"Q" OR K$-"« 
NT "73" : CLOSE 2: END 
260 IF KS-" "THEN 300 

270 IF KS«"S" OR KS-"»" THEN PRINT*2,"S: 
" + F$ ; 

2B0 IF K$-"R" OR KS-"-" THEN 
290 IF KS«"U" OR KS-"-" THEN 
T0200 
300 IF 
310 
320 
330 
340 
350 
360 
370 
3B0 



THEN CLOSE 1:PRI 



G0SUB330 
G0SUB360:G0 



ST-0 THENBO 
CLOSE 1: CLOSE 2 : END 
REH RENAME FILE 
INPUT "NEW NAflE " ; AS 
IF THEN PR I NT: RETURN 

PRINT#2, "R : "+A$+"-" + F$ ; PRINT : RETURN 
REM UIEU FILE 
PRINT:PRINT"UIEUJING " ; FS 
PRINT:PRINT"rSPACE- TO PAUSE , 3AS TO 

ABORT" : PRINT 
390 OPEN 5,B,5,"0:"*F$*","+LEFTS(T$,1D* 

,R" 
400 
410 
420 

430 IF AS<>"" THEN AS-CHRSC ASCC AS) AND 12 
7): IF AS<CHR$C32) THEN AS-"." 

440 PRINTAS; 

GETKS : IF PS-1 AND KS-»" THEN 450 
IF KS-" " THEN PS-ABSC1-PS) 
IF KS<>"A" AND K$<> THEN 400 
CLOSE 5: POKE 144,0 



GET#5,AS: IF ST-0 THEN 430 
CLOSE 5= POKE 144,0 

PRINT : PRINT" SFILE ENDS-" : PRINT : RETUR 



450 
460 
470 
4B0 



490 PRINT : PRINT 
ETURN 



ABORTED-" : PRINT : PRINT : R 



PAUL BARHAM LISTING 



10 FDRX-0T0217 : RE ADA : T-T+A : P0KE40704+X , A 
: NEXT 

15 IFT-254B6THENSYS40704:END 
17 PRINT"ERROR":STOP 

20 DATA 169 ,11,141, 6, 3, 169, 159 ,141 
30 DATA7 , 3 , 96 , 133 , 251 , 72 , 138 , 72 , 152 
40 DATA72 , 164 , 15 , 192 , 1 , 240 , 23 , 162 , 0 
50 DATA1B9 , B3 , 159 , 137 , 251 , 240 , 24 , 232 , 232 
60 DATA232 , 232 , 1B9 , B9 , 159 , 201 , 0 , 240 , 3 
70 DATA76 , 29 , 159 , 104 , 166 , 104 , 170 , 104 , 165 
80 DATA251 , 76 , 26, 167 , 169 , 91 , 32, 71 , 171 
90 DATA232 , 189 , B9 , 159 , 48 , 3 , 76 , 59 , 159 
100 DATA41 , 127 , 32 , 71 , 171 , 169 , 93 , 32 , 71 
110 DATA171, 104, 168, 104,170, 104,76,0, 167 
120 DATA19, 72,79,205, 147,67,76,210, 144 
130 DATA66 , 76 , 203 , 5 , 87 , 72 , 212 , 28 , 82 
140 DATA69 , 196 , 159 , 67 , B9 , 206 , 156 , 80 , 85 
150 DATA210 , 30 , 71 , 62 , 206 , 31 , 66 , 76 , 213 
160 DATA15B, 89, 69, 204, 145,85,208,86, 17 
170 DATA6B , 206 , 88 , 29 , 82 , 71 , 212 , 157 , 76 
1B0 DATA71, 212, 133,70,177,88,134,70,179 
190 DAT ABB , 135 , 70 , 181 , B8 , 136 , 70 , 183 , 88 
200 DATA137 , 70 , 178 , BB , 138 , 70 , 180 , BB , 139 
210 DATA70 , 1B2 , 88 , 140 , 70 , 1B4 , 88 , 18 , 82 
220 DATA79 , 206 , 146 , 82 , 79 , 198 , 129 , 79 , 82 
230 DATA193 , 149 , 66 , B2 , 206 , 150 , 76 , 82 , 196 
240 DATA151, 71, 82, 177, 152,71,82,178,153 
250 DATA76 , 71 , 210 , 154 , 76 , 66 , 204 , 155 , 71 
260 DATAB2, 179,0 
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Advertise nationally in these 
columns for only 40p per word (min 
charge 1 5 words). Simply print your 
message in the coupon and send 
with your cheque or postal order 
made payable to Argus Specialist 
Publications Ltd to: 

CLASSIFIED DEPARTMENT 
YOUR COMMODORE 
No 1 Golden Square, London W1 
Tel: 01-437 0699 



Name.... 
Address 



Tel no (day) 



ADVERTISERS PLEASE ADD 15% VAT 

Please place my advert in YOUR COMMODORE for issues. 

Please indicate no. of insertions required. 



YOUR COMMODORE 

a s sf\ ? x 1 "i 37 0699 

Semi display: C9 00 per single column centimetre ( 1 I 

R.ng (or .nformat.on on series bookings/discounts. V Lj J ^ yQur fequiremen|s to; 



DAVID HORNE 

All advertisements in this section must be prepaid. . cp . T n , GOLDEN SQUARE 

Advertisements are accepted subject to the terms and conditions i ownnfJ v/l/l ' 

printed on the advertisement rate card (available on request). j LUNUUN wi 




HARDWARE REPAIRS 



NEW STAR SG-10C PRINTER 

ONLY £249 TO INCLUDE VAT & NEXT DAY 
DELIVERY BY SECURICOR 

100% compatible with vour Commodore computer 

120cps draft mode 

Tractor and friction lord standard 

Near Letter Oualny mode included 

192 graphic mode characters. 

192 business mode characters. 

90 italic characters 

90 NLQ characters. 

Normal 80 cpl Condensed 136 cpl 

Enlarged 2X. 3X & 4X. 

Supplied with interlace/cable and mams plug READY TO GO 

STRONG COMPUTER SYSTEMS 

BRYNA COTTAGE, PENIH. CARMARTHEN, DYFfO SA32 7DJ 

TEL (02671 231246 FOR ASSISTANCE!!! C64 



* BACK-UP-SYSTEMS FOR CBM 64 & VIC 20 # 

Th» HACK 'ii '.hi i I » tn* <■■■■■) and m-u iu Mtk uu tcui lap* p>t>tr am* 
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daia Ifn. ale BACK UP BOARD Ma I MO inc '■*>' 

BACK Uf> BOARO Mh 2 

in* m itiiui o' iw l#wm BACK ur» 60 A AO on* weftl ton *av* S*Uii*t io 
V'i'V.v ■ ■ at ln» Ml I 5-i" ■■ > 10 DEMHAII . 6* ooneit (an <ne o\f ipmal 

nantl- . 'i .* ... lu ■ 1'iiat ji« ■ coti> ul a uiogiam o» IM (Horn) dn> ■■ it *o#d» hom lhe 

m.i Thu n»i».~i cK (HDduca a nriif quaint com RACK UP BOARD 2 

ana mttwaia 1HW« P»P 

i. ,>n.r Return vihii Bad up Bo*il I omcnaaaii 'nun W id be modi'iat* id Mh 7 

lc* f * SO including loMtaata am P4P 
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ROM SWITCH RIM T BOARD 
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J0WICK PORT SWITCH (OR CBM 64 
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FOR SALE 



ELECTRICAL - 
CONTRACTORS!! 

Comply wiih the 15tn edition with my 
c6Dle'Si2ir<a orogram tor Ihe CBM-64 
Calculates cable capacity. CPC BI2«. 
maximum aMowaDle runs tor voit-dmp 
and snock proleclion etc Readout 
indicates n cable doesn't comply 
f6 95 Cheques/PO •vith order to 

TONY SPRY, 
13 Tudor Drive, 
Barnstaple, Devon. 



CBM 64 quality colour monitor 
style TV. complete system" 
including good sotlware liDrary lor 
safe C350 00 O N O. Ring Benlley 
(0420) 23565 (Hants) "Tape 
based 



1526 PRINTER Immaculate 
condition. Hardly Used Boxed 
Dargam a! C220 ONO. Telephone 
0685 812219 After 7pm 



SOCCER MANAGER (Commo- 
dore 64) Manage your own team" 
Four divisions. F A Cup Transfers 
etc Send E5 K Palmer. 59 Park 
Road. Shetlteld S8 7DS. 



Super Breaker 
Back-Up Board 

Far ine | Commodore 64. CBM 12S and 
VlC-20) Wrten a second CBM type 
cassette unit is connected to the board 
■t will malie security eac»-up copies or 
cassette Dased sol ware, including 
luroo'Fasl Loaders. Basic and-'or 
Macnme Code and Data Files No 
additional sotlware is needed Very 
User Friendly, the bac«-up copy is 
made on me second cassette while the 
original is loading on the lust Price at 
fB 9S Plus P«P 

RESET CARTRIDGE lor CBM 64 This 
cartridge will reset a", yes all. memory 
residunt programs Including all 
programs where standard reset 
s*Hches loul Price i.1 9b ' P4P 
P&P 55p UK (Europe add £100. 
elsewhere add £2 001 Send 
chegue'postal order, or a stamp lor 
details, lo 

C. Kent, 26 Northcape Walk. CorOy. 

Northants. 
For enquiries telephone (0536) H2622 



COMMODORE C16 

DUAL CASSETTE INTERFACE 
Tramler any Cl6 cassette program, 
turbos, mxode etc lo a second 
dataselte 

tnlerlace I lor Ct6 and -4 £11.95 inc 
P&P Interface II lor CI6. >4. CBM 64 

and Vic 20 £14.95 Inc P*P 
Joystick Interface, connects any 

loyslick IO C16 £3.95 inc P&P 
Cassotio Interlace, connects any C2N 
cassette to C16 £3.25 inc P&P 
Cinques. POs lo. 

J. FITZPATRICK (YC), 
1 AlveleyAve, Withington. 
Manchester M20 9UD. 



iWl-H.ll 



MAPMAKER 

Simply the beat way of making 
adventure maps write on. wipe 
ott A3 size 420 - 297mm White 
PVC screen printed with a blue 
grid ol 11 ■ 13 boxes Price 
includes special pen 
Send ch/PC lor £4.48 to 
MAPIT, 166 Robert Street, 
YNYSYBWL, Mid Glamorgan 
CF37 3EA. 



COMMODORE REPAIRS 

Commodore repairs by Commodore 
approved pnginevs Reoair pi-c(t« 
Vic 20 modulaior £1.05 Vic 20 £15 00 
CBMrMliom £20.00. C2N ItomCJ.OO. 1541 
from £20 00 C64 psu £11.50. Spectrum 
£16 50 Dragon £32.00 Eleclions. Atari 
For mora inlormathon 5AE or telephone 
G.C. BUNCE & SON, 

36 Burlington Road, Burnham, 
Bucks SL1 78Q. 
Tel: (06286) 61696. 



For last reliable repair 
service send you rvTC-20 
modulator (7.50). and Vic-20 
from £12.50 and Commodore 
64 Irom £16.00 plus postage 
and packing, to: 

HEMEL COMPUTER 
CENTRE 

52 High Street 
Hemel Hempstead 

Herts HP1 3AF 
Tel: (0442) 212436 



TO 
FILL 
THIS 
SPACE 
RING 
01-437 0699 



FOR SALE 



MOONRAKER £6.95 

CBM 14 Space Game laalurai fast 

a Flylnio Roiling Radar Display 

• wire Red target Screen 
AlhluOe. TWna. Score. IncMalon, 
Fuel/Purchase Option. Promotion 
SenO your name address 4 PO^Oeque <o 
J & J Gilmour Ltd., Dept VC108S 
4 Copse Close, Uss, Hampshire 
GU33 7EN, England GU33 7EN. 
Tel: 0730-893430 



GADGET 64 £5.95 

Tms 100S machine code CUM64 
cassette utmiy otters Append Deiele 
Ranumoer (including Goto. GosuD. etc i 
Sattstyingly simple to use Send your 
Name. Address & P/O or Cheque lor 
£5 95 |P&P Free) lo 
J&J GILMORE LTD, 
Dept YClQflS. 4 Copse Close. Lisa. 
Hampshire. GU33 7EW England 
Te* 0730-693430 



SOFTWARE 



FOR HIRE 



COMMODORE 64 DATABASE - DATAFILE 

Powerful options li "'-<■ print .1 1 ..■ recoids. delete, amend, save. load, 

copy. alpnanume'tc ao>t. use defined delds. memory check, total numeric 
fields, multi field international global and between limits searches, etc. Fully 
menu driven with comprehensive, easy to use instructions 
CBM 64 (compiled! cassette C7.45 

CBM 64 <comp.ledl dish CIO. 46 

COMMODORE 64 WORDPRO - TEXTFILE 

Powerful word processor, facilities include - large leal bufler. auto centre, 
variable tab. insert, amend, delete, copy, move text, word count, right justify, 
paging. |om files, multiple hie handling, print »n pan toil. etc. Fully driven with 
comprehensive, easy to use instructions Great value 

CBM 64 (compiled! cassette CB.25 

CBM 64 (compiled) dish €10.75 

AH programs with full documentation and guarantee and can be used with all 
direct connect CBM 64 printers including 1 520 pnm plotter Also most 
Centronics (with suitable hardware interface! Price includes last delivery by 
first class post Cheques 'POs to* 

A & C SOFTWARE 
Dept. 4. 75 Oakthorpe Gardens. Tividaie, West Midlands B69 2LF 
Telephone: 021-557 B596 (7-9pml 




PROM-64 

EPROM programmer lor 8K. 16K. 
ZIF socket, Vpp generator & 
software on tape £34.75 
64-CARTndge. 2 ■ BK £5.95 
DEMO EPROM BK £4.95 
DHOFJl-2 EPROM erasor £22.95 
UK < 15** VAT 
Cambridge Microelectronics 
One Milton Road, Cambridge 
CB4 1UY 
Tel: (0223) 314814 Tlx: 81574 



HIRE 



HIRE 



STAFFS COMPUTER LIBRARY 

CBM 64 OWNERS 

Join the friendly Library. We give you what you want. If a title 
is not on our list then we will get it. if it's still available. 
(Games only! 

• All the latest Titles 

• Full 7 Days Hire 

• Low Hire Cost. From 75p 

• Up to 4 Games per week 

• All games original 

• Lots of American Titles 

• Low Hard and Software prices 

• Membership ONLY C5.00 

Free m/c Monitor on joining 
Send your cheques/postal orders payable to: 
STAFF COMPUTERS 
The Newlands. Greensome Lane. Stafford 



Attention! Commodore 
Users. 

THERE'S A WHOLE 
UBRARYOF 
SOFTWARE FOR YOU 
AT THE MIDLAND 

COMPVTEft i©RA*L 
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COMMODORE 
C16 

CASSETTE HIRE 

AT LAST! All the top games 
available lor the C16 can now be 
hired from: 

DABSOFT 

Library constantly undated as new 
games Become available Membership 
lee ol CI.50 includes 2 FREE rentals* 

OVER 50 TITLES 
One price lor any game Charge o' 

CI 26 inc PAP BOTH WAYS 
For complete momabership Kit post 
cheque or postal order la 

DABSOFT (YC) 

39 Guildford Road, Levenshulme 
M19 3FG. Tel: 061 445 4375. 



VIC-20 AND CMB-64 
SOFTWARE HIRE 

300 titles Free membership Send 
2 • Ifp stamps tor your hiresil to 
VIC-20 SOFTWARE HIRE (V.M.). 
B Thurland Street. Nottingham. 
PLEASE STATE MACHINE 



VOLUMES C64\ 
AMD TWoX ^gX 



t 



SOFTWARE 
APPLICATIONS 



ACCOUNTS 
SOFTWARE 



CASH TRADERS' 
BOOK KEEPING 

Purchase Day Book 
Daily Takings 
VAT Return (A.B.C.D.F) 
Bank Statement 
Petty Cash Statement 
Detail listing ol up to 99 nominal a/cs 
19 accounts tor creditor control 

Fmal Accounts 
£199.00 (mc VAT and postage) 
Demonstration Pack: C11.S0 
(refund sole agamst purchase) 
CASH WITH ORDER TO: 

Rei: YC. Quick-Count Lid., 
15 Neeld Cres.. London 
NW4 3RP. 01-202 5466 

(ans mc) 



CLUBS 



LOOKI Free Membership. 
Exchange your used or unwanled 
Commoflor Soliware Firsl snap 
free' SAE for details lo: Soflsnap 
UK (YC) B5. Malmesbury Road. 
Cheadle Hukne. Cheshire, SK8 
70L 



HOME ACCOUNTS. Put your 
house ifl order' Probably home 
computing's besl use 1 Compre- 
hensive coverage o! Bank 
accounls. Credit cards. HP inbuilt 
accuracy check. Records all 
transactions Projects cashllowlor 
any period ahead Available lor 
C.16 CBM64 or VIC-20 C8.45 or 
free details Irom Discus Software, 
Freepost. Windmill Hill. Brixham 
TQ5 9BR. Telephone 08045 
55532 



HOME ACCOUNTS 

Put your house tn order! 
Probably home computing's 
best use' Comprehensive 
coverage of bank accounts. 
Credit cards. HP inbuilt 
accuracy check. Reocrds all 
transactions. Projects cash- 
flow for any period ahead. 
Available lor C.16 CBM64 or 
VIC-20. f 8 45 or tree details 
from: 

Discus Software 

Freepost. 
Beach Approach 
Brixham T05 8BR 
Tel: 08045 55532 



SOFTWARE 
GAMES 



CBM 64 

Soccer Supremo, soccer management 
game |HCW •**••! Pirate Island, 
board game simulation (HCW *••*•). 
Cricket, limited over test matcn (HCW 
••••} £4 99 each 2 tor £8 99 Or 3 lor 
£12.50 on caselte Add £2 SO lo total (or 
disc 

From Dromeda Software 56 Wells 
Street. Masimgdon. Lancashire. 

BB4 SLS 



TO 
FILL 
THIS 
SPACE 
RING 
01-437 0699 



COMMODORE 64 cassette 
library. Hire latest games and 
educational software, only one 
price El .50 per cassette 7 days 
hire Details S A E please: C C L . 
19 Darrell Way, Abingdon. OX14 
1HQ 



TERMS 



CLASSIFIED ADVERTISING 
TERMS & CONDITIONS 

Our lerms tor new advertisers tseml- 
display and lineage) are strictly pro- 
lorma payments unlit satisfactory 
reference can be laaen up (eicluding 
recognised advertising agencies). 
Cheques PO's should be crossed and 
made payable lo: 

ARGUS SPECIALIST 
PUBLICATIONS LTD., 
and send together with the 
advertisement la' 
THE CLASSIFIED DEPT., L/H. 
NO: t GOLDEN SQUARE. LONDON 

VV1R 3AB. 
There are no reimbursements lor 
cancellations. Advertisements arriving 
too late lor a particular Issue will be 
Inserted In (he following Issue unless 
accompanied by instructions lo the 
contrary. 

All advertising sales are sub|eci to 
Government regulations concerning 
VAT. Advertisers are responsible lor 
complying with the various legal 
requirements In force eg: The Trade 
Description Act. Sei Discrimination 
Acl A The Business Advertisements 
(Disclosure) Order 1977. 
FULL TERVS A CONDITIONS OF 
ADVERTISING AVAILABLE ON 
REQUEST 
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Choosing the right computer 
is a good start — but can you 
find the right software? 



otprRSOFT 




MUSIC MASTER 




BUSICALC 



Al SUPERSOFT we're very conscious of the 
fact that people who spend several hundred 
pounds on computer equipment are looking 
to do rather more than play Space Invaders. 

Financial planning is a rather grand name 
for something you've been doing all your hfe 
- making ends meet! Perhaps if Mr 
Micawber had used BUSICALC he would 
have been able to balance the books a little 
better. 

For home, club or small business use 
BUSICALC 1 should pay for itself in no time at 
all. for larger companies we recommend 
BUSICALC 3. one of the few really valuable 
programs that you can learn to use in a day. 

Although your Commodore 64 is a power- 
ful musical instrument you need to be a 
pretty good programmer to understand how 
it all works. Unless, of course, you buy MUSIC 
MASTER! 

To use MUSIC MASTER requires no prior 
musical knowledge, though in the hands of 
an experienced musician it will prove an 
invaluable tool You don't need to know the 
first thing about programming either! MUSIC 
MASTER ts the musical equivalent of a word 
processor, remembering the notes you play 
and allowing you to replay and edit them as 
you wish. 




INTERDICTOR PILOT is a space flight 
simulator. Nowadays simulators are widely 
used to train pilots and astronauts because - 
to be frank - it's a lot cheaper (and safer) 
than the real thing! 

Imagine, if you will, life in the 22nd 
century: space travel is commonplace, and 
on the outskirts of the galaxy the first war 
between civilizations is being fought A short- 
age of trained pilots has prompted the Feder- 
ation to develop a computer simulation that 
allows raw recruits to gain experience with- 
out paying for their mistakes with their lives. 
With the aid of your Commodore 64 you too 
can learn to pilot the Interdictor Mk 3 craft. 
But be warned - this is no game! 




SUPERSOFT, Winchester House. Canning Road, 
Wealdstone, Harrow, Middlesex HA3 7SJ 
Telephone: 01-861 1166 



Other SUPERSOFT products include the 
MIKRO ASSEMBLER cartridge, the only 
assembler that's ideal for beginners yet pow- 
erful enough for the professional (most of 
our competitors use it!). The VICTREE cart- 
ridge adds dozens of commands to Basic 
including toolkit aids and disk commands, or 
on disk there's MASTER 64, a really com- 
prehensive package for the keen prog- 
rammer 

Of course, we do also publish qames 
programs, and with classics like ST1X, QUINX 
and KAMI-KAZE in our range we are one of 
the market leaders. But we most enjoy 
coming up with the sort of programs that are 
going to be in use for months and years, not 
hours and days - the sort of programs that 
make you glad that you bought a computer - 
and glad that you bought SUPERSOFT! 

You won't find SUPERSOFT products on 
the shelves of your local supermarket. But 
most specialist shops stock titles from our 
extensive range (and are prepared to obtain 
other programs to order). However you can 
also buy direct by sending a cheque (pre-paid 
orders are post free!), by calling at our 
offices, or over the telephone using your 
ACCESS card 



